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Leserumfrage 

Unsere diesjährige Leserumfrage, für deren 
rege Beteiligung wir uns bei Ihnen bedan¬ 
ken, hat eine deutliche Wende in bezug auf 
Fremdgeräte zutage gefördert. Dies ist für 
uns Veranlassung genug, den Peeker be¬ 
hutsam gemäß Ihrem Leservotum zu erwei¬ 
tern. Zunächst jedoch zu den Apple-Besit¬ 
zern: 

Apple-Geräte im weiteren Sinne (ll+/e/c, 
original und kompatibel) sind mit je knapp 
90 % bei den Anwendern (A) und Program¬ 
mierern (P) vertreten. Darunter gibt es in¬ 
zwischen allein 47 % (A) bzw. 42 % (P) Ori- 
ginal-lle/c-Computer. Der Anteil der Origi- 
nal-Apple-ll-l-Geräte (A: 14%, P: 15%) und 
auch der ll-i--Kompatiblen ist damit stark zu¬ 
rückgegangen, während die Zahl der lle/c- 
Kompatiblen insgesamt nur mäßig gewach¬ 
sen ist (A; 5%, P: 5%). Allerdings ist die 
Relation der Ile/c-Kompatiblen zu den Origi- 
nal-lle/c-Geräten mit 1 :9 nicht unerheblich. 
Der Mac-Anteil ist mit 2 % (A) und 0,5 % (P) 
nach wie vor gering. Die Fremdgeräte (Atari, 
IBM) belaufen sich demgegenüber immer¬ 
hin auf 8 %. 

Wichtiger als die Altgeräte-Verteilung ist für 
uns Ihr Interesse an zukünftigen Apple- 
Computern und Fremdgeräten. Wir hatten 
bei der Umfrage Apple-Il-Nachfolger, Mac- 
Nachfolger, Atari-ST und IBM-PC zur Aus¬ 
wahl gestellt. Wer auf der Karte nichts an¬ 
gekreuzt hatte (A: 7 %, P: 6 %), wurde auto¬ 
matisch den reinen Apple-Il-Anhängern zu¬ 
gerechnet. Für den zukünftigen Mac haben 
nur 5 % (A und P) optiert. Dies war zu er¬ 
warten. Verwunderlich ist dagegen, daß 
sich nur 68% (A) bzw. 64% (P) für den 
Apple-Il-Nachfolger interessieren, denn im¬ 
merhin sind knapp 90 % der Peeker-Leser 
Besitzer von Apple-Il-Altgeräten. Dafür liegt 
die Zahl der Atari/IBM-Interessierten bei sa¬ 
ge und schreibe 25 % (A) bzw. 29 % (P), al¬ 
so bei über einem Viertel der Leser. 

Die Zeitschrift „Computer Persönlich“ (Heft 
15/1986, S. 32) schätzt, daß es in der Bun¬ 
desrepublik insgesamt 10000 Mac- und 65000 


Atari-ST-Geräte gibt. Wir vermuten, daß 
von den Apple-Il-Typen noch insgesamt gut 
100000 Geräte benutzt werden, doch ist 
der Apple-Il-Markt stark rückläufig. Dies ist 
verständlich, denn für den Apple lle/c wurde 
schon seit über zwei Jahren keine Werbung 
mehr getrieben. Zum Apple-Il-Nachfolger, 
den ich bereits vor einiger Zeit getestet ha¬ 
be, möchte ich an dieser Stelle noch kein 
Urteil abgeben, doch ohne massive Wer¬ 
bung wird dieses Gerät die verlorenen 
Märkte nicht mehr zurückerobern können. 
Für viele wird deshalb der Atari ST zum 
wahren Apple-Il-Nachfolger werden. Dieser 
ganzen Entwicklung, die sich zugleich in un¬ 
serem Leservotum widerspiegelt, werden 
wir zukünftig Rechnung tragen müssen. 

Obwohl wir bereits bei unserer letztjährigen 
Umfrage (vgl. Heft 9/86) eine redaktionelle 
Öffnung des Peekers angedeutet und des¬ 
halb auch seit Anfang 1986 den Untertitel 
„Magazin für Apple-Computer“ entfernt ha¬ 
ben, ist der Peeker bis zum heutigen Tage 
eine lupenreine Apple-Zeitschrift geblieben. 
Angesichts der großen Zahl der Atari-Interes¬ 
senten unter unseren Lesern können wir je¬ 
doch nicht mehr länger zögern. Ab dem näch¬ 
sten Heft werden wir deshalb den Peeker be¬ 
hutsam in Richtung Atari 520/1040 ST er¬ 
weitern. Dagegen scheint uns die Berichter¬ 
stattung über den IBM-PC im Moment nicht 
opportun zu sein. Der „Peeker“ war und ist 
eine Zeitschrift für „Peekende“, und ver¬ 
ständlicherweise findet man unter den Atari- 
Interessenten erheblich mehr Programmie¬ 
rer als Anwender. 




Ulrich Stiehl 
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68000-Kompaktkurs 

Mit umfangreichen Befehistabeiien 


von Pit Capitain 

1. Einleitung 

ln diesem Artikel soll einer der modernen, lei¬ 
stungsfähigen 16-Bit-Mikroprozessoren vorge¬ 
stellt werden, nämlich der MC 68000 von Moto¬ 
rola. Es ist aus Platzgründen leider nicht mög¬ 
lich, hier alle Eigenschaften dieses Prozessors 
zu beschreiben. Deshalb können nur einzelne 
Punkte herausgegriffen werden. Der Artikel 
wendet sich an Leser, die schon einen Mikro¬ 
prozessor kennen und etwas über die Program¬ 
mierung in Maschinensprache wissen, also 
nicht an den blutigen Laien. Um einen Vergleich 
mit 8-Bit-Mikroprozessoren anstellen zu kön¬ 
nen, wird in diesem Artikel stellvertretend im¬ 
mer wieder auf den 6502 verwiesen. 

Der Mikroprozessor MC 68000 (im folgenden 
nur „68000“ genannt) kam 1978 auf den Markt. 
Seitdem hat er eine recht breite Verwendung 
gefunden. Er wird zum Beispiel in Computern 
der Firmen Apple (Lisa, Macintosh), Atari (520 
ST) und Commodore (Amiga) eingesetzt, um 
nur einige der bekannteren Mikrocomputer zu 
nennen. 

Bei dem 6502-8-Bit-Prozessor umfaßt der 
Datenbus 8 Bits und der Adreßbus 16 Bits. 8- 
Bit-Datenbus besagt hier, daß (a) beim Input/ 
Output und (b) bei den internen Operationen 8 
Bits „auf einen Schlag“ verarbeitet werden kön¬ 
nen. 16-Bit-Adreßbus besagt hier, daß 2 t 16 
(= 65536) Adressen angesprochen werden 
können. Analog würde bei einem 16-Bit-Pro- 
zessor der Datenbus 16 Bits und der Adreßbus 
32 Bits umfassen. Dies stimmt jedoch nicht 
genau für den 68000. Er kann intern sogar 
Daten mit einer Breite von 32 Bits verarbeiten. 
Da sein Adreßbus jedoch normalerweise „nur“ 
24 Bits breit ist, lassen sich „nur“ 2t24 = 
16777216 Bytes (16M) direkt adressieren. 

Als weitere Vorzüge gegenüber 8-Bit-Prozes- 
soren lassen sich anführen: relativ hohe Takt¬ 
frequenz von bis zu 12,5 MHz (zumeist 8 MHz); 
erweiterter Befehlssatz mit zum Teil sehr lei¬ 
stungsfähigen Instruktionen, die zudem noch 
recht einfach zu erlernen sind; viele Adressie¬ 
rungsmöglichkeiten usw. 

Der 68000 ist darüber hinaus so entworfen wor¬ 
den, daß höhere Programmiersprachen (z.B. 
Pascal) relativ leicht in Maschinensprache über¬ 
setzt werden können. Außerdem hat er zahlrei¬ 
che Eigenschaften, die für einen Einsatz in grö¬ 
ßeren Rechnersystemen benötigt werden. 

Alles in allem handelt es sich bei dem 68000 
also um einen sehr leistungsfähigen Mikropro¬ 
zessor, der nun in den nächsten Kapiteln etwas 
ausführlicher vorgestellt werden soll. 


2. Registersatz 

ln diesem Abschnitt werden die Register des 
68000 besprochen. Gegenüber dem 6502 mit 
seinen 6 Registern (A, X, Y, SP, PC, SR) gibt es 
beim 68000 ganze 20 Register, von denen alle 
bis auf eines sogar 32 Bit breit sind. 

Abb. 1 zeigt diese Register. Wie man in der 
Abbildung erkennen kann, gibt es unterschiedli¬ 
che Gruppen. Diese werden nun von oben nach 
unten beschrieben. 


Die Register vom M€ 



Abb. 1 


Das wichtigste Register ist beim 6502 der Akku¬ 
mulator (A), über den so gut wie alles abgewik- 
kelt wird. Diese Rolle spielen beim 68000 die 
acht Datenregister (DO bis D7). Wie der Name 
schon sagt, werden hier allgemeine Daten ge¬ 
speichert und verarbeitet. Die acht Register sind 
untereinander völlig gleichwertig. Man kann z.B. 
in allen acht Datenregistern addieren, dividieren 
usw. Dem Programmierer stehen also praktisch 
acht Akkus zur Verfügung. 

Wie man in der Abb. 1 sieht, sind die Datenregi¬ 
ster 32 Bit breit. Nun muß man nicht bei jedem 
Befehl alle 32 Bits verarbeiten. Der Program¬ 
mierer kann vielmehr wählen, ob er nur die 
unteren 8 Bits, die unteren 16 Bits oder alle 32 
Bits verändern will. 


Neben den Datenregistern gibt es 7 sog. 
Adreßregister, die ebenfalls 32 Bit breit sind. 
Beim 6502 gibt es kein vergleichbares Register. 
Es ist aber nicht schwer, die Bedeutung dieser 
Register zu erraten. Wie der Name schon sagt, 
werden hier Adressen gespeichert. Man kann 
dies vielleicht am ehesten mit der Zero-Page 
vom 6502 vergleichen, wo man in zwei aufein¬ 
anderfolgenden Bytes (z.B. in $00F0 und 
$00F1) eine Adresse abspeichern kann. Die 
Daten, die unter dieser Adresse abgespeichert 
sind, werden dann z.B. mit „LDA ($00F0),Y“ in 
den Akku geladen. In einem späteren Abschnitt 
werden wir sehen, daß man mit den Adreßregi¬ 
stern dasselbe, aber auch noch viel mehr ma¬ 
chen kann. 

Der Stapelzeiger (Stackpointer) ist ebenfalls 
ein Adreßregister (A7). Er enthält nämlich die 
Adresse des letzten Elements, das auf dem 
Stack abgelegt wurde. Beim 68000 kann der 
Stack (fast) überall im Speicher untergebracht 
werden, liegt also nicht in einem festen Bereich 
(beim 6502: von $0100 bis $01 FF). 

Um nun alles noch komplizierter zu machen, 
gibt es beim 68000 zwei Stackpointer, die beide 
sogar denselben Namen haben (A7 oder SP). 
Dazu nur eine kurze Erklärung: Bei Computern 
gibt es immer zwei Programme, die praktisch 
„gleichzeitig“ ablaufen: zum einen das Anwen¬ 
derprogramm (z.B. ein BASIC-Programm) und 
zum anderen das Betriebssystem (z.B. DOS 
3.3), das den Rechner steuert. Bei größeren 
Rechnern ist das Zusammenwirken dieser bei¬ 
den Programme oft sehr komplex. Das Ganze 
wird aber dann einfacher, wenn diese beiden 
Programme strikt voneinander getrennt arbei¬ 
ten. Der 68000 unterstützt das alles dadurch, 
daß er zwei sogenannte Betriebsarten hat. Er 
läuft entweder im „Benutzermodus“ (Anwen¬ 
derprogramm) oder im „Systemmodus" (Be¬ 
triebssystem), und in jeder dieser Betriebsarten 
gibt es einen eigenen Stackpointer. Der Pro¬ 
grammierer „sieht“ aber nur immer einen von 
beiden. 

Wer vom 6502 auf den 68000 umsteigt und 
seine ersten Programme entwirft, wird sich et¬ 
was verloren verkommen unter einer solchen 
Masse von Registern. Aber es wird einem 
schnell so ergehen wie mit den Arbeitsspei¬ 
chern der Computer. Waren früher 8K ein schier 
riesiger Bereich, kann man sich heute eigentlich 
gar nicht mehr vorstellen, wie man mit weniger 
als 64K auskommen konnte. Genauso ergeht 
es einem schon nach kurzer Zeit mit den vielen 
Registern beim 68000. Heute habe ich tatsäch¬ 
lich Mühe, ein Assemblerprogramm für den 
6502 zu Ende zu bringen, so beschwerlich ist 
das Arbeiten mit den wenigen Registern. 


6 


Peeker 9/86 






















































68000 



Doch zurück zur Beschreibung der anderen 
Register des 68000. Wie beim 6502 gibt es 
einen Programmzähler (PC), der hier natüriich 
auch 32 Bit breit ist. Das einzige Register, das 
„nur" 16 Bits umfaßt, ist das Statusregister 
(SR). Hier wird wie beim 6502 der „Zustand" 
festgehalten, in dem sich der Prozessor gerade 
befindet. 

In der unteren Hälfte des Registers befinden 
sich die Flags, die man auch vom 6502 her 
gewohnt ist. Es fehlt das D-Flag des 6502. Dafür 
gibt es ein neues X-Flag (extend), das ähnlich 
wie das C-Flag arbeitet. Diese untere Hälfte des 
Statusregisters kann auch nur für sich alleine 
benutzt werden. Die Bezeichnung dafür lautet 
dann „CCR“, was die Abkürzung für „Condi- 
tlon-Code-Reglster“ Ist. Wer sich näher für das 
Statusregister interessiert, sieht in Abb. 1 die 
Bedeutung der einzelnen Bits. 


3. Der erste Befehl 

(mit 9898 Opcodes) 

Nach dieser ganzen Theorie kommt nun der 
erste konkrete Befehl, den wir uns näher an¬ 
schauen wollen. Es handelt sich um den Befehl 
MOVE. Dieser Befehl transportiert Daten von 
einer „Quelle" zu einem „Ziel". Für die Quelle 
und das Ziel gibt es sehr viele verschiedene 
Möglichkeiten, z.B. kann die Quelle ein 
Datenregister und das Ziel eine Adresse im 
Speicher sein. 

Der Befehl „MOVE“ lautet eigentlich -„MOVE.s 
ea1,ea2". Was das ,s‘ bedeutetwerden wir 
gleich sehen. Die Buchstaben ,ea‘ sind die Ab¬ 
kürzung für „Effektive Adresse". Dieser Begriff 
ist beim 68000 sehr wichtig. Deshalb wird er 
hier und im nächsten Abschnitt alisführlich er¬ 
klärt. 

Der Befehl „MOVE.s ea1,ea2“ macht folgen¬ 
des: Er holt Daten von der Adresse ,ea1‘ und 
speichert sie unter der Adresse ,ea2‘. Es muß 
sich hier nicht Immer um tatsächliche Adressen 
im Speicher handeln. Man kann z.B. auch Daten 
von Register DO ins Register D3 bewegen. Die¬ 
se Register haben aber keine „Adresse“ im 
eigentlichen Sinn. Deshalb spricht man beim 
68000 von einer „Effektiven Adresse". 

Fazit: Die „Effektive Adresse“ (ea) gibt also an, 
wo Daten zu finden sind oder wo Daten abge¬ 
speichert werden können. 

Dazu nun gleich ein Beispiel: Wie lautet der 
Befehl, der Daten aus dem Speicher mit der 
Adresse $07A700 in das Register D3 lädt? 

Er heißt „ MOVE.s $07A700,D3“. Man muß also 
nur die Zeichen ,ea1 ‘ und ,ea2‘ durch konkrete 
Angaben ersetzen; dann hat man den Befehl, 
wie ihn der Assembler versteht. Genauso ist es 
mit dem Zeichen ,s‘: 

,s‘ bedeutet „Size“ (Größe). Damit wird ange¬ 
geben, wie groß die Daten sind, die transportiert 
werden sollen. Für ,s‘ kann man die folgenden 
Buchstaben einsetzen: 

,B' für die Größe „Byte“ (8 Bits) 

,W‘ für die Größe „Word" (16 Bits) 

,L‘ für die Größe „Long" (32 Bits) 


Was macht also der Befehl „MOVE.L A3,D7"? 
Er kopiert die 32 Bits (,L' = Long) aus dem 
Adreßregister A3 in das Datenregister D7. Die 
Z80-Programmierer werden sich schon geär¬ 
gert haben: Vordem Komma steht die Quelle, 
hinter den\ Komma das Ziel. Es geht also „von 
links nach rechts“, genau umgekehrt wie beim 
Z80. 

Wie man schon aus diesen kleinen Beispielen 
sehen kann, gibt es sehr viele „MOVE“-Befeh- 
le. Man kann ja für ,s‘, ,ea1‘ und ,ea2‘ viele 
unterschiedliche Sachen einsetzen. Alles in al¬ 
lem gibt es für den „MOVE"-Befehl 9898 ver¬ 
schiedene Opcodesl Das zeigt, daß es beim 
68000 sehr schwierig ist, aus einem „Monitor" 
in Hexcode einfach „drauflos" zu programmie¬ 
ren, müßte man sich doch allein für den 
„MOVE“-Befehl fast 10000 Opcodes merken. 
Im Assembler dagegen schreibt man nur z.B. 
„MOVE.L SP,A2" (Stapelzeiger In A2 kopieren) 
und hat mit dem einen Befehlswort „MOVE" 
schon alle 9898 Opcodes erledigt. 

Besonders zu erwähnen Ist an dieser Stelle 
noch, daß man z.B. mit dem Befehl „MOVE.W 
$07A700,$07F700" Daten (hier 16 Bits, .W' = 
Word) im Speicher verschieben kann, ohne 
auch nur ein einziges Register zu benutzen! Für 
die Profis: Beim 68000 gibt es also Zwei-Adreß- 
Befehle. Beim 6502 oder Z80 geht so etwas nur 
über ein Hilfsregister, dessen Inhalt vorher 
eventuell noch gerettet werden muß. 


4. Adressierungsarten 

Wie wir schon im vorigen Abschnitt gelernt ha¬ 
ben, kann man mit der „Effektiven Adresse“ 
(ea) angeben, wo Daten zu finden sind. Dafür 
gibt es sehr viele unterschiedliche Möglichkei¬ 
ten, die man „Adressierungsarten“ nennt. 

Der 6502-Programmierer kennt so etwas auch 
schon: Man kann mit dem Befehl „LDA“ ein 
Byte in den Akku laden. Die Adresse für dieses 
Byte kann auf unterschiedliche Arten bestimmt 
werden, z.B. „Zero Page“-Adresslerung: LDA 
$F0 (Adresse = $00F0) oder Adressierungsart 
„absolut Indiziert“: LDA $C080,X (Adresse = 
$C080 -H Inhalt von X). 

in diesem Abschnitt werden die Adressierungs¬ 
arten des 68000 vorgestellt. Dabei werden wir 
auch einiges über die Opcodes der Befehle 
erfahren. Dies alles wollen wir wieder am 
„MOVE“-Befehl klarmachen. 

Als Beispiel nehmen wir an, wir wollten ein 
Word (1'6 Bits) in das Register D3 laden. Der 
Befehl dazu lautet im Assembler „MOVE.W 
ea,D3". Das Zeichen ,ea‘ gibt die „Effektive 
Adresse" an, an der das Word zu finden ist. 
Bevor wir nun darauf eingehen, was man alles 
für die Zeichen ,ea‘ konkret einsetzen kann, sei 
zunächst der Opcode für den Befehl „ MOVE.W 
ea,D3“ angegeben. Er lautet (in Binär-, Oktal- 
und Hex-Code = %-o-$): 
%0011011000MMMRRR = O0330MR = $36XX 
Die Ziffern, die mit ,M‘, ,R‘ und ,X' bezeichnet 
sind, sind der Code für die Effektive Adresse 
der Daten. Je nachdem, welche Adressierungs¬ 
art gewählt wird, müssen für ,M‘, ,R' und ,X‘ 
andere Werte eingesetzt werden. (Der Buchsta¬ 


be ,M‘ steht für „Modus“, das ,R‘ bedeutet 
„Registernummer“.) Wer die Opcodes wirklich 
verstehen möchte, der suche sich in der Tabel¬ 
le 4 im Anhang den Block, der mit „MOVE.s 
ea,Dm" beginnt, und dort die Zeile, bei der In 
der Spalte ,s' der Buchstabe ,W‘ steht. In dieser 
Zeile befinden sich u.a. die Opcodes für den 
Befehl „MOVE.W ea,Dm". Die Möglichkeiten 
für ,ea‘ stehen am Kopf der Tabelle in den 
Spaltenüberschriften. 

Doch nun zu den einzelnen Adressierungsar¬ 
ten: Nach der Bezeichnung (Überschrift) stehen 
in Klammern die Schreibweise für den Assem¬ 
bler, die Werte, die im Code für ,M‘ und ,R‘ 
einzusetzen sind, sowie ein kleines Beispiel. 
Zur Verdeutlichung der Adressierungsarten sei 
auf die Tabelle 1 verwiesen, in der alle Adres¬ 
sierungsarten und ihre Wirkungen zusammen¬ 
gefaßt sind. 


4.1. Datenregister direkt 

(Dn; M=0, R=n) 

Beispiel: MOVE.W D1,D3 

Bei dieser Adressierungsart stehen die Daten 
für die Operation direkt in einem der acht 
Datenregister (hier in Dl). Mit dem Befehl im 
Beispiel wird also ein Word (16 Bits) von D1 
nach D3 übertragen. 

Anmerkung: Es werden Immer die unteren 16 
Bits benutzt. Die obere Hälfte der Register wird 
hier nicht verändert. 

Wie lautet nun der Opcode für diesen Befehl? In 
der Überschrift oben steht die Angabe „M=0, 
R=n“. Wir haben im Beispiel Dl als Quelle 
gewählt; deshalb gilt hier M=0 und R=1 („R" = 
Registernummer). Der Opcode sieht dann also 
wie folgt aus: 

%0011011000000001 = 0033001 =$3601 


4.2. Adreßregister direkt 

(An; M=1, R=n) 

Beispiel: MOVE.W A2,D3 

Genauso, wie man ein Word von einem 
Dafenregister in D3 transportieren kann, kann 
man das Word auch aus einem der Adreßregi¬ 
ster holen, wie es der Befehl im Beispiel zeigt. 
Die Effektive Adresse (ea) wird also mit ,A2‘ 
angegeben. Der Opcode ist hier (M=1, R=2): 
%0011011000001010 = O033012 = $360A 

Spätestens hier sieht man schon, daß es leider 
nicht so gut ist, die Opcodes wie sonst üblich In 
Hex-Schreibweise anzugeben. Da die bitmäßi¬ 
ge Notation zu umständlich ist, eignet sich die 
oktale Schreibweise für die meisten Befehle am 
besten. 

Die Felder im Code der ea (,M‘ und ,R‘) sind je¬ 
weils 3 Bit lang. Also kann man ihre Werte 
direkt aus dem oktal codierten Opcode abfesen: 
Die hinteren beiden Oktalziffern sind ,12‘. De¬ 
mentsprechend handelt es sich hier um die 
Adressierungsart „Adreßregister direkt“ (M = 
1), wobei das Register A2 (R = 2) angespro¬ 
chen ist. 

Die Opcodes im Anhang sind alle In oktaler 
Schreibweise angegeben. 
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4.3. Adreßregister indirekt 

((An): M=2, R=n) 

Beispiel: MOVE.W {A6),D3 

Normalerweise enthalten Adreßregister bei ei¬ 
ner Operation nicht die Daten selbst, sondern 
nur deren Adresse. Der Befehl im Beispiel lädt 
in D3 ein Word von der Adresse, die in A6 
angegeben ist. Ein kleines Beispiel soll die Wir¬ 
kung verdeutlichen (vgl. auch Tab. 1): 

Inhalt von D3 sei $FEDCBA98, 

Inhalt von A6 sei $0007A700, 

ab Adresse $07A700 sei gespeichert: 

$11 ,$22,$33, usw. 

Dann lautet nach dem Befehl „ MOVE.W 
(A6),D3“ der Inhalt von D3 ,$FEDC1122‘. Alles 
klar? 

Wie der Opcode zu dieser Adressierungsart 
lautet (zumindest in oktaler Schreibweise), dürf¬ 
te nun nicht mehr schwer zu erraten sein. (Er 
lautet O033026!) 

Die nächsten Adressierungsarten sind etwas 
komplexer: 


4.4. Adreßregister indirekt 
mit Postinkrement 

((An) + ; M-3, R = n) 

Beispiel; MOVE.W (A7)+,D3 

Flier erfolgt die Adressierung der Daten wie bei 
der indirekten Adressierung, die gerade eben 
beschrieben wurde. Das heißt, die Adresse der 
Daten steht in dem angegebenen Adreßregister 
(hier in A7). Nachdem die Daten aber geholt 
wurden, wird das entsprechende Adreßregister 
erhöhü Man kann sich das am besten am Bei¬ 
spiel des Stapels (Stack) klarmachen (siehe 
auch Abb. 3): 


Die Stackverwaltung 



6502 68000 



6502 68000 


Abb. 3 


Wenn beim 6502 ein Byte vom Stack in den 
Akku geladen wird (PLA), wird zuerst der Stack¬ 
pointer um 1 erhöht. Dann wird das Byte mit der 
Adresse $0100 + (SP) in den Akku geholt. Der 
Stack beim 68000 arbeitet fast genauso, nur in 
einer anderen Reihenfolge: Zuerst werden die 
Daten von der Adresse geholt, auf die der 
Stackpointer zeigt, und danach erst wird der SP 
erhöht. Beim 6502 zeigt der SP also immer auf 
den nächsten freien Platz im Stack, beim 68000 
auf die zuletzt In den Stack „gepushten“ Daten 
(vgl. Abb. 3). 

Der Befehl im Beispiel leistet praktisch dasselbe 
wie beim 6502 der Befehl „PLA". Er holt ein 
Word vom Stack in ein Register und korrigiert 
den Stapelzeiger entsprechend. 

Wie man Daten aus dem Stack holt, haben wir 
also schon gelernt. Aber wie schreibt man 
Daten auf den Stack? Man muß den Vorgang 


einfach genau umgekehrt ablaufen lassen. Belm 
68000 heißt das: Zuerst muß der Stackpointer 
erniedrigt werden, und dann können die Daten 
dorthin geschrieben werden, wo der Stackpoin¬ 
ter nun hinzeigt. Genau dies leistet die nächste 
Adressierungsart: 

4.5. Adreßregister indirekt 
mit Predekrement 

(-(An); M=4, R = n) 

Beispiel: MOVE.W D3,-(A7) 

Dieser Befehl schreibt ein Word aus Register 
D3 auf den Stack. Der Stackpointer wird vorher 
entsprechend korrigiert. 

An diesem Beispiel kann man sich zwei Dinge 
verdeutlichen: Zum einen kann man mit dem 
Stapelzeiger (SP oder A7) genauso arbeiten wie 
mit jedem anderen Adreßregister. Zum anderen 
kann sich der Programmierer einen eigenen 
Stack einrichten, indem er für seinen eigenen 
Stack ein eigenes Adreßregister als Stackpoin¬ 
ter verwendet (z.B. A4). Dort kann er dann mit 
den beiden zuletzt beschriebenen Adressie¬ 
rungsarten Daten hineinschreiben und wieder 
herausholen. (Natürlich wird bei Unterpro¬ 
grammaufrufen nach wie vor der „normale“ 
Stapelzeiger A7 verwendet, um Rücksprung¬ 
adressen zu speichern!) 

Noch eine letzte Bemerkung zu den beiden 
letzten Adressierungsarten: Haben Sie sich 
überlegt, um wieviel das Adreßregister erhöht 
bzw. erniedrigt wird? Das hängt von der Größe 
der Daten ab, die bei der Operation beteiligt 
sind. Bei Byte-Operationen (1 Byte) ist der Wert 
1, bei Word-Operationen (2 Bytes) ist er 2, und 
bei Long-Operationen (4 Bytes) demnach 4. In 
den beiden obigen Beispielen würde also Regi¬ 
ster A7 um 2 erhöht oder erniedrigt (Opera¬ 
tionsgröße = Word = 2 Bytes). 

Die nächste Adressierungsart ist in einer ähnli¬ 
chen Form auch beim 6502 vorhanden: 


4.6. Adreßregister indirekt 
mit Verschiebung 

(d(An): M=5, R=n): d=displacement 
Beispiel: MOVE.W 8(A2),D3 

Hier wird die Adresse für den Operanden wie 
folgt bestimmt: Zu der Adresse, die im Register 
An (im Beispiel A2) steht, wird der Wert ,d‘ (im 
Beispiel 8) dazuaddiert. Steht in A2 beispiels¬ 
weise die Adresse $07A812, so wird durch den 
Befehl „MOVE.W 8(A2),D3" das Word mit der 
Adresse $07A81A in Register D3 geladen. 

Der Wert für ,d‘ ist eine vorzeichenbehaftete 16- 
Bit-Zahl, liegt also im Bereich von -32768 bis 
32767. Dieser Wert steht im Programmspeicher 
nach dem Opcode für den Befehl. Der Befehl 
„MOVE.W 8(A2),D3" würde (oktal) wie folgt 
codiert werden: 

O033052 (Opcode für den Befehl. M=5, R=2) 
oOOOOlO (Verschiebung ,d‘ = 8 in oktaler 
Schreibweise) 

Wie beim 6502 sind also auch beim 68000 die 
Befehle unterschiedlich lang, je nachdem, wel¬ 
che Adressierungsart(en) verwendet werden. 
Wie weiter oben schon erwähnt wurde, kann 
man beim 6502 Adressen in 2 Bytes der Zero- 
Page abspeichern (z.B. in $00F0 und $00F1 die 
Adresse $0080 im Format Low/High). Wenn 
man anschließend in das Register Y den Wert 
für ,d‘ (die Verschiebung = Offset) schreibt 
(z.B. 8), so kann man mit „LDA ($F0),Y“ das 
Byte mit der Adresse $0080 -f- 8 = $0088 in 
den Akku laden. Dies funktioniert dann so, wie 
es der oben beschriebenen Adressierungsart 
entspricht. 

Stimmt das? Beim 68000 ist die „Verschie¬ 
bung" ein fester Wert, der im Programm steht. 
Und beim 6502? Da handelt es sich doch offen¬ 
sichtlich um einen variablen Wert, der im Regi¬ 
ster Y steht. Das wäre also ein Rückschritt, 
wenn es beim 68000 nicht auch so etwas gäbe. 


Erweiterungswort für die Adressierungsarten 

- Adreßregister indirekt mit Index [ d(An,Rx) ] 

- Programmzähler mit Index I d(PC,Rx) ] 


15 H 13 12 11 10 9 8 7 6 5 3 2 1 0 

— - 1 1 —--——I-* 1 1 1 -r I 



- 1 1 

Register 


0 

0 

0 

-1-n-1-1-1-r 1- 

Verschiebezeihl ("d") 


'-► Größe des Indexregisters 

(0 = ".W", 1 = ".L") 

I-* Nummer des Indexregisters 

- f Art des Indexregisters 

(0 = Datenregister, 

1 = Adreßregister) 

Abb. 2 
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»peeker« schenkt Ihnen 



... den praktischen Disk-Locher mit dem Sie 
die Speicherkapazität ihrer Disketten im Nu 

verdoppein können! 

Überzeugen Sie jetzt einfach Ihre Freunde 
und Bekannten von den Vorzügen eines »peeker- 
Abonnements«. Sie bekommen als Dank für 
einen neuen Abonnenten diesen 
superpraktischen Disk-Locher! 

Füllen Sie den Bestellcoupon aus und ab 
zur Post! 


Peeker 9/86 


bin der neue Abonnent. Bitte liefern Sie mir bis 
auf Widerruf, zumindest aber für 1 Jahr, »peeker« 
zum Jahresbezugspreis von DM 72,- (Ausland plus 
DM 18,“ Porto) an folgende Anschrift: 


Coupon ausschneiden und 
einsenden an: 


Bestellcoupon 


Name, Vorname 


Straße, Postfach 


PLZ, Orl 

Datum. Unler^hrift 


»peeker« 

Abonnementservice 
Im Weiher 10 
6900 Heidelberg 1 


Gewünschte Zahlungsweise 

□ gegen Rechnung 

□ bargeldlos durch Bankeinzug 


Ich habe den neuen Abonnenten geworben und er¬ 
halte kostenlos den Disk-Locher. 


Name, Vorname 


Straße, Postfach 


PLZ. Orl 


X 


Datum, Unterschrift 


I I I I I I I I I I 111 1111 1 11 I 

Konto-Nr. Bankleitzahl 

I I I I I I I I I M 1 I I I I I I I I 1 

QeidinstiiLiI 

Vertrauensgarantie: 


Diese Bestellung kann ich innerhaib einer Woche 
bei Dr. Alfred Hüthig Verlag GmbH, Im Weiher 10, 
6900 Heidelberg 1 widerrufen. Zur Wahrung der 
Frist genügt die rechtzeitige Absendung. Ich be¬ 
stätige die Kenntnisnahme mit meiner Unterschrift: 



erschrift 



HiMhia 


PUBLIKATION 




















4.7. Adreßregister indirekt mit index 

(d(An,Rx.W) oderd(An,Rx.L): M=6, R=n) 
Beispiele: MOVE.W -2(A0,D2.W),D3 
oder MOVE.W 0(A0,A1.L),D3 

Bei dieser Adressierungsart wird die Adresse 
wie folgt errechnet: 

Die Adresse in An (hier in AO, z.B. $07A700) 

+ die Verschiebezahl ,d‘ (hier -2) 

+ der Inhalt von Rx (hier von D2, z.B. $1000) 

= Effektive Adresse (z.B. $07B6FE) 

Zu der Adresse im Adreßregister An wird also 
eine feste Verschiebezaht ,d‘ (hier nur 8 Bits) 
addiert, und dazu wird noch einmal der Inhalt 
von einem anderen Register ,Rx‘ (16 oder 32 
Bits) addiert. Auch hier wird nach dem Opcode 
für den Befehl ein Word (16 Bits) benötigt, um 
die notwendige Information für die Adressie¬ 
rung zu liefern. Das Format für dieses „Erweite¬ 
rungswort" sieht man in der Abb. 2. 

Die Befehle aus unserem Beispiel oben würden 
also wie folgt codiert: 

I 0033060 I 0033060 | (Opcode) 

I 0020376 1 0114000 j (Erweiterungswort) 

Überlegen Sie einmal, welche Codierung wel¬ 
chem der beiden Beispiele entspricht! 

Wenn Sie das alles ungefähr verstanden haben, 
dann ist das Schlimmste geschafft. Die nachfol¬ 
genden Adressierungsarten bringen nichts 
Neues mehr, sind aber trotzdem recht nützlich. 
Im Unterschied zu den bisherigen Adressie¬ 
rungsarten dient die Registernummer ,R‘ nun 
nicht mehr dazu, die verwendeten Register zu 
bestimmen, sondern nur noch dazu, die Adres¬ 
sierungsarten weiter zu unterscheiden. Dies ist 
nötig, weil im „Modus"-Feld ,M‘ nur noch der 
Wert 7 übrig ist. 


4.8. Absolut kurze Adresse 

(xxx; M=7, R=0) 

Beispiel: MOVE.W $0B00,D3 

Dies ist endlich einmal ein alter Bekannter, beim 
6502 die Zero-Page-Adressierung. Die Adresse 
wird nach dem Befehls-Opcode direkt angege¬ 
ben, und zwar mit weniger Bytes, als für eine 
vollständige Adresse eigentlich benötigt wür¬ 
den. Daher der Name „kurze“ Adresse. 

Der Opcode für den Beispiel-Befehl lautet (hin¬ 
tereinander in Oktalcode): o033070, o005400. 


4.9. Absolute Doppelwort-Adresse 

(xxxxxx; M=7, R=1) 

Beispiel: MOVE.W $07A700,D3 

Eigentlich muß man hierzu nichts weiter sagen, 
sogar die Bezeichnung der Adressierungsart 
stimmt (fast) mit der beim 6502 überein. Eine 
Bemerkung aber zur Angabe der Adresse: 
Beim 68000 gibt es (zum Glück) nicht mehr die 
Reihenfolge Low-Byte/High-Byte wie beim 
6502, sondern genau umgekehrt. Der Befehl 
oben lautet also codiert (hier ausnahmsweise 
auch in Hexcode): 

0033071, 0000007, ol23400 
$3639, $0007, $A700 


Man kann die Adresse also direkt von links nach 
rechts „lesen“, ohne etwas herumdrehen zu 
müssen. 


4.10. Programmzähler mit Verschiebung 

(d(PC); M=7, R=2) 

Beispiel: MOVE.W 0(PC),D3 

Diese Adressierungsart arbeitet genau wie die 
mit dem Namen „Adreßregister indirekt mit Ver¬ 
schiebung", nur wird anstelle des Adreßregi¬ 
sters der Programmzähler (PC) verwendet. Die 
Verschiebung ist hier ebenfalls 16 Bit lang. 

Der 6502-Programmierer kennt auch diese 
Adressierungsart! Sie heißt dort „relative 
Adressierung“ und kommt nur bei den beding¬ 
ten Sprüngen (z.B. bei „BGS“) vor. Nach dem 
Befehls-Opcode kommt also die Verschiebe¬ 
zahl, die zum Inhalt des Befehlszählers addiert 
wird. Beim 6502 kann dann nur zu dieser 
Adresse gesprungen weröen] beim 68000 kann 
man von dort z.B. auch Daten laden, wie es bei 
dem obigen Befehl der Fall ist. Er lautet codiert 
O033072, oOOOOOO und ist eine etwas umständ¬ 
liche Art und Weise, die unteren 16 Bits von D3 
zu löschen (auf 0 zu setzen). 

Das ist tatsächlich die Wirkung dieses Befehls! 
Denn nach der Entschlüsselung des Befehls 
steht der Programmzähier auf dem Erweite¬ 
rungswort, zeigt also auf das Wort oOOOOOO. Da 
die Verschiebung hier 0 ist, ist dies gleichzeitig 
die Adresse für das Wort, das in D3 geladen 
werden soll. Deshalb ist nach diesem Befehl D3 
auf $xxxx0000 (nur 16 Bits!). 

Man kann hier noch einen Punkt besonders 
erwähnen: Wir haben gesehen, daß der 6502 
ebenfalls diese Adressierungsart kennt. Er kann 
sie aber nur in ganz bestimmten Befehlen ver¬ 
wenden (bei bedingten Verzweigungen). Ge¬ 
nauso verhält es sich beim 68000. Auch hier 
kann man nicht bei jedem Befehl jede Adressie¬ 
rungsart verwenden, sondern nur ganz be¬ 
stimmte. Welche das im einzelnen sind, kann 
man den Befehlstabellen im Anhang ent¬ 
nehmen. 


4.11. Programmzähler mit Index 

(d(PC,Rx.W) oder 
d(PC,Rx.L): M = 7, R=3) 

Beispiel: MOVE.W $40(PC,D0.W),D3 
oder MOVE.W -$40(PC,D7.L),D3 

Auch diese Adressierungsart ist von der Ar¬ 
beitsweise her bekannt: Es handelt sich um die 
Adressierungsart mit dem Namen „Adreßregi¬ 
ster indirekt mit Index“. Hier wird wiederum 
anstelle des Adreßregisters der Programmzäh¬ 
ler zur Bestimmung der Basisadresse benutzt. 
Das Erweiterungswort, das nach dem Befehls- 
Opcode folgt, hat dasselbe Format wie bei der 
oben beschriebenen Adressierung mit dem 
Adreßregister. Das Format ist in Abb. 2 gezeigt. 


4.12. Direkte Daten 

(#xxx: M=7, R=4) 

Beispiel: MOVE.W # $270F,D3 

Dies ist wieder eine Adressierungsart, die auch 
der 6502 zu bieten hat. Hier stehen die Daten 
direkt im Programm nach dem Opcode für den 


Befehl. Der Code für den obigen Befehl lautet 
(wieder mit der zusätzlichen Hex-Codierung): 

0033074, 0023417 
$363C, $270F 

Auch hier gilt, daß bei den Daten zuerst das 
höchstwertige Byte kommt, und am Ende steht 
das niedrigstwertige Byte. Das ist auch bei 
Daten der Fall, die 4 Byte lang sind (Long). Bei 
den Daten, die nur ein Byte lang sind, gibt es 
das folgende Problem: 

Wie beim „MOVE“-Befehl sind auch die übri¬ 
gen Opcodes der Befehle alle 16 Bit (also 2 
Byte) lang. Aus diesem Grund haben die Ent¬ 
wickler des 68000 festgelegt, daß Opcodes von 
Befehlen nur bei geraden Adressen im Spei¬ 
cher beginnen dürfen. (Also z.B. bei $040030, 
nicht aber bei $040033). 

Damit das immer gewährleistet ist, müssen 
auch alle Erweiterungsworte, die für die Adres¬ 
sierung benötigt werden, entweder 2 oder 4 
Bytes lang sein. Auch wenn man bei der direk¬ 
ten Adressierung mit der Operationsgröße Byte 
nur 1 Byte für die Daten brauchte, werden im 
Speicher deshalb trotzdem 2 Bytes für das Er¬ 
weiterungswort reserviert. Es wird von diesen 
zwei Bytes das zweite, also das niederwertige 
Byte benutzt. Beispiel: 

Wenn im Speicher der nächste Befehl mit 
O013074, o177401 codiert ist, so lautet der 
Befehl „MOVE.B xxx,D3“, wobei die direkten 
Daten ,xxx' in dem Wort nach dem Opcode 
stehen, hier also o177401 = $FF01. Nach dem 
Befehl steht in D3 ein Wert von $xxxxxx01. Es 
wird eben nur ein Byte verändert („MOVE.B“), 
und es wird das zweite, niederwertige Byte des 
Erweiterungswortes benutzt (,01‘ und nicht 
.FF‘). 

Bei drei Befehlen („ANDI“, „EORI" und 
„ORI“), kann man die Adressierungsart „Direk¬ 
te Daten" nicht verwenden. Man kann aber mit 
diesen logischen Befehlen das Bitmuster im 
Statusregister (SR oder OCR) verändern. Da 
dies aber nur bei diesen drei Befehlen geht, 
wurde dafür nicht eine eigene Adressierungsart 
geschaffen. Man könnte sie dennoch etwa mit 


4.13. Statusregister 

(SR oder OCR; M=7, R=4) 

Beispiel: ANDI.B$FE,CCR 

beschreiben. Es handelt sich also um densel¬ 
ben Code (M=7, R=4) wie bei der direkten 
Adressierung. Bei den drei obengenannten Be¬ 
fehlen wird aber in diesem Fall das Statusregi¬ 
ster adressiert. 

Der Befehl im Beispiel verknüpft den Inhalt des 
COR (unteres Byte des Statusregisters, bein¬ 
haltet die Flags) und das Byte $FE logisch mit 
UND und speichert das Ergebnis im OCR. Da¬ 
durch wird das Carry-Flag (C) auf 0 gesetzt (vgl. 
Abb. 1). 

Das waren jetzt alle Adressierungsarten auf ei¬ 
nen Blick. Sie sind in der Tabelle 1 noch einmal 
zusammengestellt. 


Schlußbemerkung 

Man kann bei einem Befehl wie etwa „MOVE.s 
ea1,ea2“ für die Quelladresse ,ea1‘ und die 
Zieladresse ,ea2‘ viele unterschiedliche Adres¬ 
sierungsarten einsetzen. Wie schon erwähnt. 
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Semfan presents • •• 


• CP/M Plus System für Apple //e,c 

- CIRTECH CP/M Plus Modul belegt keinen Slot im Apple //e,c. 

- Komplettes Betriebssystem CP/M 3.0 von Digital Research. 

- Z80H mit 8MHz, Einsatz von 128K RAM, Drucker-Spooler mit 12K RAM. 

- Integration der Diskll und der UniDisk Laufwerke, //e auch Profile. 

- Kompatibel zu CP/M 2.20 und 2.23. Apple //c mit Maus-Funktion. 

- Mit 20 Hilfsprogrammen, 6 neue CP/M 3.0 System Hilfsprogramme. 

- Einsatz von: WORDSTAR, dBASE, MBASIC, TURBO PASCAL 3.0 etc. 

K010//C CP/M Plus System DM 798,00 

K011 //c WORDSTAR/MAILMERGE und KOlO DM 1193,00 
KOI 7 //c Turbo Pascal 3.0 und KOI 0 DM 999,00 

KOI 2//e CP/M Plus System DM 544,00 

KOI 3 //e WORDSTAR/MAILMERGE und KOI 2 DM 930,00 

KOI 6 //e Turbo Pascal 3.0 und KOI 2 DM 747,00 

KOI 8 // CP/M 3.0 Programmier-System DM 403,00 

KOI 9 //c CP/M Modul V. 2,20 u. 2.23 o. Betr. Sys. DM 390,00 

• 1 MB RAM Karte für Apple //-i-,e 

- CIRTECH FLIPPER Karte wird komplett mit 1 MB RAM geliefert. 

- Super schneller Datenzugriff, 50K/sec.. Max. 6 MB RAM pro Apple //. 

- 100 % Kompatibel mit PRODOS (Appleworks), DOS 3.3, PASCAL 1,1, 

- PASCAL 1.2 und 1.3, CP/M 2.20B, 2.23 und CP/M Plus 3.0. 

- Bis zu 1012K RAM Arbeitsspeicher, z. B. mit Appleworks 1.3, etc. 

- Flipper Programm Manager zum automatischen Verwalten der Karte. 

- Laden und Abspeichern des jeweiligen Arbeitsbereiches möglich. 

- Einsatz von bis zu 4 Betriebssystemen zur gleichen Zeit!! 

- Einsatz von DISKII, UniDisk und anderen ProDos-Block Speichern. 

- Kein „patchen" notwendig, Einsatz in jedem Slot möglich» 

K070 //+,e Flipper Karte mit 1 MB RAM DM 1397,00 

NEU Appleworks 1.3 sofort lieferbar! 

Auf alle CIRTECH-Produkte volle 12 Monate Garantie. 

Neu; Katalog 2/86 anfordern. Händleranfragen willkommen! 
Fragen Sie Ihren Händler nach CIRTECH-Produkten! 


M,Semfan 
Computer Systeme 

Postfach 900104, 0000 Frankfurt/Main 90, Tel. 009-701853 

T 0 l 0 x 051933521 dmbox g. Rofs Box: DM3SSEMCOM, Mailbox-Adr 00 S 0 : DM3 SEMCOM 


Semfan presents • •• 


• Champion Karte für Apple //+,e 

- CIRTECH Parallele Text- u. Graphik-Druckerkarte komplett mit Kabel. 

- Option 64K RAM Zwischenspeicher, 40/80 Zeichen Dump zu jeder Zeit. 

- Umfangreiche Kontroll-Steuerbefehle z.B. Zeichensatzwahl, etc. 

- Einsatz von DOS 3.3. PRODOS (Appleworks). UCSD PASCAL, CP/M. 

- Champion-Karte voll Graphik fähig, Apple //e Graphik. 

- Serieller Ausbau möglich, 75 bis 9600 Baud Ein- bzw. Ausgabe. 

- Mischbetrieb, parallel und seriell, zu jeder Zeit möglich. 

- Drucker: Epson, Centronics, Brother, Itoh, Imagewriter l/li, etc. 

K030 //+,e Champion Interface DM 222,00 

K031 //+,e Champion für Imagewriter DM 299,00 

K033 //+,e Champion Interface 64K RAM DM 476,00 

• Uni-Mate UniDisk Software 

- Einsatz der UniDisk Laufwerke ab sofort mit DOS 3.3, CP/M 2.20 

- CP/M 2.23, PASCAL 1.1 und PASCAL 1.2. Einmalige Installation. 

- Einsatz von UniDisk und DISKII Laufwerken möglich. 

- DOS 3.3 bootbar, Speicherkapazität BOOK, INIT möglich. 

- CP/M 2.2 und 2.23 bietet 768K Speicherk.. Formatierung möglich. 

- PASCAL bietet 768K Speicherkapazität, Formatierung möglich. 

K045 // CIRTECH Uni-Mate Software DM 127,00 

• CIRTECH EPROM SYSTEM 

“ Super Eprom Programmier-System. System komplett mit aller Software» 
~ Einsatz als Text/Grafik Interface und Eprom-Programmier-System. 

- Einsatz als zweifache I/O Karte möglich. 

- Einsatz von EPROM: 2716, 2732 2732A, 2764, 27128 und 27256. 

K080 //+,e Eprom Programmier-System DM 408,00 

Auf alle CIRTECH-Produkte volle 12 Monate Garantie. 

Neu; Katalog 2/86 anfordern. Händleranfragen willkommen! 
Fragen Sie Ihren Händler nach CIRTECH-Produkten! 


M.Semian 
Computer Systeme 

Postfach 900104, 0000 Frankfurt/Main 90, Tel. 009-701853 

T 0 l 0 X 051933521 dmbox g. Rof: Box: DM3:SEMCOM, Mallbox-Adrosse: DM3 SEMCOM 


PubMc Domoin Softwore 


Liste sofort bestellen .. 10,^ 


Freiprogramme für Apple 


Software Preissenkung 

Wir stellen die Preise auf den Kopf 


Meriin Pro Macra Assembler..448,- 199»- 

Meilin.. ^ ^ ^ ^ ... ^ 2£Q „ 150,- 

Meriin Combo.250,- 

Mousewrite.. 498,-349,— der Apple /te® wird zum Mac® 


Charten Graph Toolbox 110,- DotaboseToolbox.... 110,- 

Video Toolbox.110,- Wizard's Toolbox 110,- 

Munch A Bug.130,- Printographer.130,- 

ZUSATZ-KARTEN: 


V-24-Schfiiftetetto .......199,- Z-BO-Korte.*» 

SO-Zaichen-Korte m.SoHswitch 23d,- T6 K-Languoge-Karte ,, 

Joy Sitdt......... 49,- Acceierötor 3.6 MHz ,,,» 

iaoootnteineM.. i6O0,- PAiKdrt« .. 

RGBKarte... 239,- IEEE 4« .... 

Koppler dotoption m. FTZ »,,,, 325,- Z BO 6 Karte mit Software 


Cerrtronlcs-KäTte von Epson für Graphik .,,. 210,^ für Text.,,, T45,- 
Gentronks-Sdintttslefle für 2 Drucker gleichzeittg ^ 129>- 

Super-Eprommer a4a 

belegt keinen S!oi> Incl. Software für2716-2712fl ... 


Floppy-Confrolter 

FDC 4 für alle Laufwerke.. 169,- Bausatz wie links ., * * .. 159,- 

Leerptaiine wie oben Inci. Prom u, Eprom ....98,- 

ErphkControiter ., _ ....298,- 

Ohketl»n1D,4Stpf.. 10 St. 29,- tHsketten2D,4Stpi. IQ St. 36,- 

Frei programmierbare Keyboards 

Wir bieten Ihnen dte Preh-Guolitüt auch für Apple, AK 87 spei» mit Gehäuse, An- 
sch luQkabel, Zehner-Tastenfeld, dt, Zeichensatz. Sondertaaten für o *20 

CtrI-Codesund Rechen funktionen. OvT#" 

Preh CommonderKeyboardLfrel programmierbar COO 

bis zu 10 Ebenen, pro Taste bis zu 2^ Zeichen .. 

GlekheToslafvr Wie oben 

für Apple ne . nurOrö#“ 

20 MB Harddisk 

(Festplatten laufwerk} incl, Software, Kabei, Gehäuse etc, OOOfi 

Sonderpreis .....»nur ä 7 W 

30 MB und 50 MB ftir Apple auf Arrfnagel 


TEAC 31«" Laufwerk FD 35 & o. 

Speicherkapazität T MB, (formatiert 640 KB) jetzt für nur 



TEAC fO SS AV1 X 40 Track 
TEAC FD SS EV Ix 00 Track 


395,- TEAC FD S5 8Y 2x40 Track 
445,- TEAC FD 55 FV 2x80 Track 


Pana$onic Drucken 1592 
1091 r,url095,- 1092 


rl599,- 

.rll95,- 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2 x t MByte formailed: 2 x 
640 kByte. Anschlußfertig mit PROM-resiöenter 
Patchsoflware für CP/M 2»2, Apple DOS 3»3, Di- 
versiDOS 2-C, 4-C (ÜO MOVER), Apple Pascal 
1.1, Pascal 1 »2, Pro-DOS 1 »0»1, % a a a 

1»1,1.1.1 zum Preis von . WteV* 

Low Power Vsrtion .155%,- 


Gesamt-Preisliste onfordem! 

Prehe indudve gesehdidier Mehrwertsteuer^ 
HtindterprehGste bitte sdirtftf Idi onfordeml 


UEDING electronics 


Holtewiese 2 
5750 Menden 1 


Telex: 

(051) 933524 geonetg 
box IFX2; ueding 


DFU 02373/66877 
Tel. 02373/63159 
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kann man nicht bei allen Befehlen völlig frei eine 
Adressierungsart wählen. Beispielsweise kann 
man die logischen Operationen (AND, EOR, OR 
und NOT) nicht In einem Adreßregister durch¬ 
führen. Bei diesen Befehlen Ist also die Adres¬ 
sierungsart „Adreßregister direkt“ nicht erlaubt. 
(In einem Adreßregister stehen ja Adressen, bei 
denen i.a. logische Operationen auch nicht sehr 
sinnvoll sind.) 

In der Tabelle mit den Opcodes und Taktzyklen 
(im Anhang) ist angegeben, welche Adressie¬ 
rungsarten bei den einzelnen Befehlen möglich 
sind und welche nicht. 


5. Datentypen 

Bevor nun auf den Befehlssatz vom 68000 nä¬ 
her eingegangen wird, wollen wir noch einen 
kurzen Blick auf die Operanden werfen, mit 
denen man arbeiten kann. Wie wir schon bei 
den Adressierungsarten gesehen haben, gibt 
es,Daten, die 1 (Byte), 2 (Word) oder sogar 4 
Bytes (Long) lang sind. Diese Daten sind im 
Speicher in der Reihenfolge High-Byte,.... Low- 
Byte untergebracht. 

Daneben können z.B. aber auch einzelne Bits 
bearbeitet werden. Die Numerierung der Bits 
beispielsweise in einem Datenregister sieht 
man in der Abb. 1. Bit 0 ist also das niedrigst¬ 
wertige Bit („ganz rechts"). 

Außerdem ist der 68000 in der Lage, BCD- 
codlerte Zahlen zu verarbeiten („BCD“ = Bina¬ 
ry Coded Decimal). Der 6502-Programmierer 
kennt diesen Zahlencode: Wenn das D-Flag im 
Statusregister auf 1 ist, werden alle Additionen 
und Subtraktionen in dem sog. „Dezimal-Mo- 
dus" durchgeführt. Beim 68000 gibt es kein D- 
Flag. Da ohnehin nur die arithmetischen Befehle 
davon betroffen sind, gibt es beim 68000 eige¬ 
ne BCD-Befehle zur Addition, Subtraktion und 
Negation („ABCD", „SBCD“ und „NBCD"). 

Noch ein letztes Wort zu den Adressen, bevor 
wir ganz auf den Befehlssatz überschwenken. 
Der Adreßbus beim 68000 ist ja 24 Bit breit. 
Also benötigt man für Adressen nur jeweils 3 
Bytes. Weil der 68000 aber immer gerne mit 
einer geraden Zahl von Bytes arbeitet, sind 
auch die Adreßregister 32 Bit (4 Bytes) breit. 
Wenn man nun auf eine Adresse zugreift, die in 
einem Adreßregister gespeichert ist (z.B. bei 
„MOVE.L (A0),D6“), so werden von diesen 32 
Bits nur die unteren 24 Bits an den Adreßbus 
gelegt. Der Inhalt des höchstwertigen Bytes ist 
also bei der Adressierung gleichgültig; er wird 
aber bei manchen Operationen mit berücksich¬ 
tigt, z.B. bei „MOVE.L A0,D1 “ oder bei „ADD- 
A.L$12000000,A3" (Addition). 


6. Befehlssatz 

Nun kommen wir endlich zum Befehlssatz des 
Prozessors, der für die meisten Leser am inter¬ 
essantesten sein dürfte. Die einzelnen Befehle 
des 68000 werden hier nur kurz zusammenge¬ 
faßt. In der Tabelle 2 sind die Befehle etwas 
ausführlicher in alphabetischer Reihenfolge auf¬ 
gelistet. So mancher Leser wird wohl auf den 
ersten Blick etwas enttäuscht oder überrascht 
sein: Es gibt nämlich gar nicht so viele Befehle. 


Doch alle diese Befehle stehen für eine ganze 
Gruppe von Operationscodes, so daß sich beim 
68000 eine Gesamtzahl von sage und schreibe 
39696 (legalen) Opcodes ergibt. Eine Vorstel¬ 
lung dieser Vielzahl von Opcodes vermitteln 
auch die Befehlstabellen im Anhang zu diesem 
Artikel. 

Weiterhin muß man sagen, daß manche Befehle 
der Tabelle 2 noch weiter aufgegliedert \Neröen 
können. Der Befehl „ADD" steht beispielswei¬ 
se für insgesamt 5 Befehle, die allesamt eine 
Addition bewirken. Wenn die Addition z.B. in 
einem Adreßregister stattfinden soll, so lautet 
der Befehl „ADDA“. Soll eine Addition mit einer 
direkt angegebenen Zahl ausgeführt werden 
(Immediate), so lautet der Befehl „ADDI". in 
dieser Art gibt es noch andere Erweiterungen, 
die man an den Grundbefehl „ADD" anhängen 
kann. Welche Befehle auf diese Art erweitert 
werden können, sieht man in der Tabelle 3. 

Im folgenden werden die Befehle nicht alphabe¬ 
tisch geordnet vorgestellt, sondern in Gruppen 
eingeteilt. Bei jeder Gruppe werden die dazuge¬ 
hörigen Befehle aufgelistet. Es kann aber nur 
auf einige Befehle besonders hingewiesen wer¬ 
den. Die Arbeitsweise der anderen Befehle ist 
in den Tabellen im Anhang angegeben. Manche 
Befehle sind schon von anderen Mikroprozes¬ 
soren her bekannt, andere werden weiter unten 
in kleinen Beispielprogrammen näher erläutert. 

6.1. Befehle zum Datentransport 

(EXG, LEA. LINK, MOVE, MOVEM, MOVEP, 
PEA, SWAP, UNLK) 

Die am meisten benutzten Befehle sind dafür 
zuständig, Daten zwischen Registern unterein¬ 
ander, im Speicher oder zwischen Registern 
und dem Speicher zu transportieren. Der Stan¬ 
dardbefehl für diese Operation lautet „MOVE“. 
Allein dieser Befehl ist so vielfältig, daß es Ins¬ 
gesamt 9898 Opcodes für diesen einen Befehl 
gibt. 

Daneben kann man z.B. mit „EXG“ den Inhalt 
zweier Register vertauschen, mit „SWAP" die 
oberen 16 Bits eines Registers mit den unteren 
16 Bits vertauschen, Speicherplatz auf dem 
Stack reservieren (LINK) bzw. wieder freiqeben 
(UNLK). 

6.2. Arithmetische Befehle 

(ADD, CLR, CMP, DIVS, DIVU, EXT, MULS, 
MULU, NEG, SUB, TAS, TST) 


Neben Addition und Subtraktion von ganzen 
Zahlen kann der 68000 auch multiplizieren 
(MULU, MULS) und dividieren (DIVU, DIVS)! 
Auf diese beiden neuen Befehle wird später 
noch genauer eingegangen. 

Daneben gehören zu dieser Gruppe Befehle 
zum Vergleichen (CMP), Negieren (NEG) und 
Löschen (CLR) von Daten. 

Wie wir weiter oben schon gesehen haben, gibt 
es eine ganze Reihe von Additionsbefehlen 
(ADD, ADDA, ADDQ, ADDI, ADDX), die alle auf 
dem Grundbefehl „ADD“ aufbauen (siehe auch 
Tabelle 3). Von diesen Befehlen will Ich hier 
noch einen besonders hervorheben, nämlich 
den Befehl „ADDO“ (,Q' = Quick, Schnell). 

Mit diesem Befehl kann man direkte Daten aus 
dem Bereich von 1 bis 8 zu einem Register oder 
einer Speicherzelle addieren. Dies geht deshalb 
schneller als mit dem Befehl „ADDI", weil die 
Zahl (von 1 bis 8) direkt im Opcode des Befehls 
angegeben Ist. Sobald der Prozessor also den 
Befehl entschlüsselt hat, kann auch schon die 
Addition erfolgen. Beim 6502 gibt es einen ähn¬ 
lichen Befehl: „INC“. Damit kann man aber nur 
eine 1 addieren. Beim 68000 gibt es also einen 
Inkrement-Befehl (natürlich auch einen Dekre¬ 
ment-Befehl „SUBQ“), mit dem man Werte von 
1 bis 8 direkt addieren kann. 

6.3. Logische Befehle 

(AND, OR, EOR, NOT) 

Hier gibt es im Vergleich zum 6502 nichts Neu¬ 
es. Es gibt also die logischen Operationen UND, 
ODER, Exklusiv-ODER sowie die Negation. 

6.4. Schiebe-Befehle 

(ASL, ASR, LSL, LSR. ROL, ROR, ROXL, 
ROXR) 

Anders verhält es sich mit den Schiebe- und 
Rotierbefehlen, die beim 68000 vollständig vor¬ 
handen sind. Man kann also sowohl logisch als 
auch arithmetisch nach links und nach rechts 
schieben. Der Unterschied zwischen dem logi¬ 
schen und dem arithmetischen Schieben be¬ 
steht in der Art, in der die Daten interpretiert 
werden: Beim logischen Schieben sind die 
Daten einfach Folgen von den booleschen Wer¬ 
ten 0 und 1, beim arithmetischen Schieben 
dagegen binäre Zahlen mit Vorzeichen, Wie 
sich dieser Unterschied auswirkt, sieht man in 
der Abb. 4. 


Die Schiebebefehle 

DO uorher : IIOOÖlTl 1000011110000111100^^^ 11 ll 

RSL#l,DO; Iddo'H 1100001111000011110000111 lOl U-Flag ^1, C-Flag = t 
LSL #1,DO: lOOOH 110000111100001111000011 iTÖl U-Flag = 0, C-Flag = I 
RSR^I.DO: rrrddoi m0000111 IOOQDI 11 lodoai lül C-Flag=l 

LSR ^1,DO: (olOOQl'l'llQdOOiri 1000011)100001 i'il C-Flag =1 

Abb. 4 
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« Einige Leistungsmerkmale » 

* 400-seitiges, ausführliches Handbuch 

• Super schnelles Compilieren (s. Benchmarktest) 

• Computer unabhängiges Grafik- und File Handling 

» neue mächtige Grafikbefehle (CIRCLE,CIRCLE FILL,BOX, 
BOX FILL,PLOT lines,points etc.,POINT COLOR und FILL) 

• Bis zu 54 Stellen Rechengenauigkeit 

» Einzelschritt Debugging sowie Fehleranzeige auf der Linie 
» Direkte Befehle wie in einem Interpreter 

* Nur RUN schreiben um zu compilieren 

* Compiliert alte Basic Programme (Gesichert in ASCII) 

► Loops; WHILE-WEND,DO-UNnL,FOR-NEXT-STEP 

► Wird geliefert mit: QUICK Sort & SHELL Sort source code 

Benchmarktest Zum sensationellen 

I I [Preis von nur: 


Apple IIe,c- 

ZBasic 486 286 

Applesoft™ 3432 5400 

MSDOS™ 

ZBasic 13.7 19.: 

Turbo™ 14,1 28 

Basica™ 2190 3105 

Macintosh™ 

ZBasic 7 11 

Mbasic™ 684 350 

ZW» 

ZBasic 23.4 30.: 

Mbasic™ 2160 4195 

Erhältlich für: 

Apple Ile/IIc, Mac, Mac Plus, Mac 


MEGABYTES 
MIT 

MEGA’CORE 

10/20 MByte Im Apple^ //./:/+ und //e 


- Fr. 220.- 
DM 258.- 

I _ 

Generalvertretung 
ComputerWorks 
Leimenstrasse 49 
j 4051 Basel 
_| Tel; 061 22'50*22 

XL, Z80, IBM & Kompatible 


Es gehört inzwischen zum Standard für ein modernes Rechnersystem, mit einer 
Festplatte ausgerüstet zu sein. Erst dadurch erlangt der Rechner die Qualität in 
der Datenverarbeitung, wie sie bei professionellen Anwendungen verlangt wird. 
Beim Apple wird einfach das Netzteil herausgenommen und dafür das 10/20 
MByte MEGA-CORE eingesetzt. Ab dann warten vier Betriebssysteme (DOS, 
CP/M, ueSD-Pascal, ProDOS) auf Ihr Kommando. Welcher Profirechner kann 
das schon? 

Fragen Sie uns nach Fakten, Preisen, Bezugsquellen und holen Sie sich für 
5,— DM unsere Demo-Diskette. 

Ein Produkt von FRANK & B RI TTING 

Elektronik Entwicklungs GmbH 
Lange Straße 4, 7529 Forst 
Telefon: 07251 /103068-69 
Telex: 7822452 fub d 

Die Harddiskcontroller-Speziatisten 


WARGAMES 


Militärische Konfiiktsimulationen mit bis zu 100 
(!) Stunden Spieidauer. Die Herausforderung 
an jeden Strategiespieier. Farbinfo für APPLE 
gegen DM 0,80 Rückporto. 


THOMAS Irtlfltiat 

COMPUTER—SERVICE 

Postfach 2526 7600 Offenburg 



Z-80-Karte 


80-Zeichen-Karte 

mit Softswilch, nur fCtr II Pi^ 

kofnpal. _ 


SpeQch>Kai1e 


Clock-Karta 


Komp 2E f 

Apple 2E kompatible. Rechner 


64K im 2E-Design, ohne Firmware. 


80Z + 64K-Karte 


Molhertward 2E 


Klaus Jeschke 

Hard-, Software 
Viertstr. 3-13 
6233 Kelkheim 
S (061 98) 9069 


299,- 

Händleranfragen erwünscht! 2E kompatible ohne 
Apple-Info 1,- DM (Porto) Firmware. _^ 


Pisk-lnterfoce 

89.- 

Centronics-Interf. m. Kabel 

79,- 

16-K-Ram-Karte 

79,- 

128-K-RAM-Karte 

199,- 

256-KB-RAM-Karte 

299,- 

Motherboard 64K 

292,- 

II Plus kompat. 6502, Z80, 64K 

ohne Firmware 



Ausgabe und 
Eingabe mit 

TYPETERM^ 


im Slot Ihres 

APPLE Il/Ile 

Das bedeutet: Computer- 
textverarbeitung von der 
Schreibmaschinentastatur! 
Steckerfertig ohne Umbau. 

Die neue CE-550! 

mit TYPETERM DM 1.398,- 

TYPETERM- DM 479,- 

Interface 

für alle BROTHER-Typenrad- 
schreibmaschinen ab AX-30 
bis EM-811 

(auch für Vorgängermodelle!) 
Paketpreis z. B.: 

EM-501 mit TYPETERM . DM2136,- 

EM-511 mit TYPETERM DM2412,- 

EM-701 mit TYPETERM .. DM 2468,- 

TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Cti- 
Befehie. 4k ROM auf der Karte für DOS, 
PRODOS, CP/M, PASCAL 2 Zeichensätze 
verfügbar z, B. deutsch u. ASCil. Alle 
Features: Hoch-/Tiefstellen, autom. Unter¬ 
streichen, var. Zeichen und Zeilenabst., 
autom. Papierzuführung usw. 

TYPETERM - ein Produkt von 

Kock & Mreches GmbH 
postl., 3004 Isernhagen 4 
ek ^r.LPOniC Telefon 0 5139-87393 


Ausgabe mit 

TYPETERM® 

JUNIOR 

im Slot Ihres 

APPLE ll/lle 

Paketpreis DM 899,- 

Schreibmaschine AX-10 mit 
Interface TYPETERM JUNIOR, 
steckfertig. 



brother 

Die Zukunft heute 

TYPETERM JUNIOR mit AX-10 - unser 
besonders günstiges Gespann, ebenfalls 
steckfertig. Mit TYPETERM JUNIOR kann 
die AX-10 mehr. Sie wird zum vollwertigen 
Typenraddrucker für Ihren Apple: 

• 3 verschiedene Schriftstärken 

• Automatisches Unterstreichen 

• 2 Zeichen Sätze z.B. deutsch u. ASCII 

• 2 Zeichen abstände 

• 2k ROM auf der Karte für Ausgabe unter 
DOS, PRODOS, CP/M u. PASCAL. 

TYPETERM JUNIOR - ein Produkt von 


krierkom 


fff f f f Kock & Mreches GmbH 

, Postf., 3004 Isernhagen 4 

electronic Teieion 05139-07393 
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Rotieren kann man wie beim 6502 entweder mit 
oder ohne dazwischengeschaltetem Carry-Flag. 
Neu beim 68000 ist, daß man mit einem Befehl 
um mehrere Bits gleichzeitig schieben/rotieren 
kann! 

6.5. Bit-Manipulation-Befehle 

(BIST, BSET, BCLR, BCHG) 

Mit diesen Befehlen lassen sich einzelne Bits im 
Speicher oder in einem Register auf 1 oder 0 
setzen, umändern oder einfach auf ihren Zu¬ 
stand testen. Beim 6502 gibt es so etwas Ähn¬ 
liches mit dem Befehl „BIT" (zumindest den 
Bit-Tesf). 

6.6. BCD-Befehle 

(ABCD, SBCD, NBCD) 

Mit diesen Befehlen können Zahlen, die im 
BCD-Code codiert sind, addiert, subtrahiert und 
negiert werden. Es gibt für diese Zahlen aber 
keine Multiplikation oder Division. Wie weiter 
oben schon erwähnt, gibt es beim 68000 kein 
D-Flag, um die Verarbeitung von BCD-codier- 
ten Zahlen zu ermöglichen. Dafür stehen nun 
diese drei eigenen Befehle zur Verfügung. 

6.7. Sprungbefehle 

(Bcc, DBcc, Scc; BRA, BSR, JMP, JSR; RTR, 
RTS) 

Diese Befehle sind gegenüber dem 6502 stark 
erweitert worden. Neben den Sprüngen (BRA, 
JMP), Unterprogrammaufrufen (BSR, JSR) und 
-rücksprüngen (RTR, RTS) gibt es die beding¬ 
ten Sprünge. Beim 68000 gibt es insgesamt 16 
Bedingungen, die getestet werden können. Soli 
zum Beispiel gesprungen werden, wenn das 
Ergebnis einer Operation größer als Null ist, so 
braucht man dafür nicht mehr wie beim 6502 
zwei Befehle, z.B. 


BEQ Label 
BPL Größer 

Labell 

sondern es reicht der eine Befehl 
BGT Größer 


(Branch on Greater Than). Das macht das Pro¬ 
grammieren sehr angenehm. Ebenfalls sehr 
nützlich ist der Befehl „BRA“, bei dem auf 
jeden Fall verzweigt wird. Dadurch erspart man 
sich solche Konstruktionen wie 

CLC 

BCC Label 


Eine Liste der zur Verfügung stehenden Bedin¬ 
gungen ist im Anhang enthalten. Die relativen 
Verzweigungen sind beim 68000 nicht mehr auf 
einen Bereich von 8 Bits beschränkt (-128 bis 
-f-127), sondern es stehen 16 Bits fürden Offset 
zur Verfügung. 

Sehr gut bewährt hat sich auch die Möglichkeit, 
Unterprogramme ebenfalls relativ zum Pro¬ 
grammzähler aufrufen zu können. Der Befehl 


dazu heißt „BSR“ (Branch to SubRoutine). Mit 
diesem Befehl kann man lange und komplexe 
Programme schreiben, die völlig beliebig im 
Speicher verschiebbar sind. Alle Sprünge und 
Unterprogrammaufrufe können nämlich mit den 
Befehlen „BRA" bzw. „BSR“ relativ gemacht 
werden, so daß sie keine absolute Adresse 
enthalten. 

Ein neuer Befehl ist weiterhin besonders zu 
erwähnen, nämlich der Befehl „DBcc“ (Decre- 
ment and Branch until cc). Mit diesem Befehl 
lassen sich sehr schön Schleifen programmie¬ 
ren. Dies wird weiter unten gezeigt. 


6.8. Systembefehle 

(RESET, RTE, STOP; TRAP, TRAPV, CHK; so¬ 
wie Befehle mit dem Statusregister) 

Zu dieser Gruppe gehören alle Befehle, die das 
Rechnersystem in einen bestimmten Zustand 
bringen. Da gibt es zum Beispiel den Befehl 
„RESET". Dieser Befehl sendet ein Signal an 
alle angeschlossenen Peripheriegeräte, die da¬ 
durch initialisiert (normiert) werden. 

In dieser Gruppe sind auch Befehle, die die 
Flags im Statusregister verändern sowie Befeh¬ 
le, die eine Unterbrechung auslösen. Diese Un¬ 
terbrechungen kennt auch der 6502-Program- 
mierer von dem Befehl „BRK". Dieser Befehl 
heißt beim 68000 „TRAP“. Daneben gibt es die 
Befehle „TRAPV" und „CHK". die eine Unter¬ 
brechung nur dann auslösen, wenn ein Überlauf 
aufgetreten ist (V-Flag = 1) bzw. wenn der 
Inhalt eines Registers nicht in einem bestimm¬ 
ten Bereich liegt. 

Leider kann hier nicht genauer auf die sehr 
interessanten Unterbrechungsmöglichkeiten 
des 68000 eingegangen werden. Die Leser, die 
dazu mehr erfahren möchten, seien auf die 
weitere Fachliteratur verwiesen. 

Dies war ein kurzer Überblick über die Befehle 
des 68000. Manche dieser Befehle werden in 
den weiter unten folgenden Beispielprogram¬ 
men näher untersucht. Das ist aber nicht bei 
allen Befehlen möglich. Im Anhang findet sich 
dafür eine Liste mit allen Befehlen, deren Op- 
codes, Taktzyklen und deren Bedeutung. 


7. Die Macintosh-Umgebung 

Wie weiter oben schon erwähnt, gibt es eine 
ganze Reihe von neueren Computern, in denen 
ein 68000-Prozessor eingebaut ist. Mir persön¬ 
lich stand ein Macintosh (von Apple) zur Verfü¬ 
gung, auf dem auch die Beispielprogramme ge¬ 
schrieben wurden. 

Für die Programmierung des Macintosh in Ma¬ 
schinensprache gibt es ein Entwicklungspaket 
von Apple, in dem u.a. folgendes enthalten ist: 

- ein sehr komfortabler und leistungsfähiger 
Editor zum Erstellen und Editieren der Assem¬ 
bler-Programme 

- ein Assembler, dessen Listings leider einen 
Schönheitsfehler aufweisen, wenn man Vor- 
wärts-Verzweigungen benutzt (s.u.) 

- ein Linker, mit dem die übersetzten Program¬ 
me zu einem Macintosh-Programm zusammen¬ 
gesetzt werden (davon wird gleich noch die 
Rede sein) 

-weitere macintosh-spezifische Programme. 
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Mit diesen Hilfsmitteln läßt sich sehr komforta¬ 
bel umgehen, wie man es vom Macintosh her 
gewohnt ist. In dem mir zur Verfügung stehen¬ 
den Gerät war zudem eine besondere Speicher¬ 
erweiterung von 2M eingebaut, so daß mit der 
RAM-Disk auch die Geschwindigkeit beim Pro¬ 
grammwechsel (Editor ^ Assembler Linker) 
geradezu beängstigende Dimensionen er¬ 
reichte. 

So weit, so gut. Da es sich bei dem Macintosh 
aber um einen sehr komplexen Computer han¬ 
delt, ist das Programmieren in Maschinenspra¬ 
che nicht so einfach, wie man es z.B. vom Apple 
II her gewohnt ist. Man muß sich jetzt auf einmal 
um Mäuse, Menüs und Fenster kümmern, was 
eine nicht unerhebliche Einarbeitungszeit erfor¬ 
dert. Die hier vorgestellten Beispielprogramme 
wurden als Unterprogramme in ein Testpro¬ 
gramm eingebaut, das in dem Entwicklungspa¬ 
ket enthalten ist. Es wird ein eigenes Menü 
erzeugt, mit dem die einzelnen Unterprogram¬ 
me aufgerufen werden können (siehe Abb. 5). 



Abb. 5 


8. Beispielprogramme 

Nun kommen wir endlich zur Sache: Die ersten 
Programme in 68000-Maschinensprache wer¬ 
den vorgestellt. Es handelt sich dabei natürlich 
nur um kleinere Beispiele, die ganz bestimmte 
Punkte verdeutlichen sollen. 

8.1. Unterprogramm „Tausch“ 

Zum Einstimmen zeigt das Listing 1 ein Pro¬ 
gramm, mit dem man einen Speicherbereich mit 
einem anderen (gleichgroßen) Bereich vertau¬ 
schen kann. Damit man das Ergebnis auch 
überprüfen kann, wurden die Bereiche so ge¬ 
wählt, daß sie im Bildschirmspeicher des Macin¬ 
tosh arbeiten. Doch zunächst einmal zur Be¬ 
schreibung des Programms: 

Als erstes wird definiert, wo die beiden Berei¬ 
che beginnen sollen. Der Bildschirmspeicher 
des Macintosh beginnt bei der Adresse 
$07A700. Er hat 342 {= $156) Zeilen mit je 512 
(=$200) Pixeln. Der erste Bereich beginnt bei 
der Zeile $20 (von oben her gerechnet), der 
zweite bei der Zeile $C0. Die Länge der Berei¬ 
che wurde auf $90 Zeilen zu je $40 Bytes 
gesetzt. 

Dann geht das Programm auch schon mit dem 
ersten unbekannten Befehl los: Er lautet 
„MOVEM“. Mit diesem Befehl kann man meh¬ 
rere Register gleichzeitig transportieren. Der im 


14 


Peeker 9/86 













Beispiel verwendete Befehl betrifft die Register 
DO, D1, A1 und A2. Man könnte den einen 
Befehl auch durch die folgenden 4 Befehle er¬ 
setzen: 

MOVE.L D0.-(A7) 

MOVE.L D1,-(A7) 

MOVE.L Al r(A7) 

MOVE.L A2.-(A7) 

Nun sollte eigentlich klar sein, was diese Befeh¬ 
le machen, denn den „MOVE“- Befehl kennen 
wir ja schon. A7 ist der Stackpointer, die Adres¬ 
sierungsart ist „Adreßregister mit Predekre- 
ment“. Mit diesen Befehlen werden demnach 
nacheinander die Register DO, D1, AI und A2 
auf den Stack geschrieben! 

Warum? Unser kleines Unterprogramm benutzt 
gerade diese 4 Register und verändert deren 
Inhalt, Es könnte nun so sein, daß das Pro¬ 
gramm, welches das Unterprogramm „Tausch" 
aufruft, in diesen Registern gerade etwas ge¬ 
speichert hat, das nach unserem Unterpro¬ 
gramm weiter verwendet werden soll. Deshalb 
retten wir am Anfang lieber alle verwendeten 
Register auf den Stack, von wo sie am Ende 
auch wieder geladen werden können (s.u.). 
Dann können wir mit den Registern machen, 
was wir wollen, und müssen uns nicht um das 
aufrufende Programm kümmern. 

Danach kommt schon wieder ein unbekannter 
Befehl: „LEA“. Erbedeutet „Load Effective Ad¬ 
dress“ und macht nichts anderes, als eine Ef¬ 
fektive Adresse in ein Adreßregister zu laden. 
Was eine Effektive Adresse ist, wurde ja weiter 
oben erklärt. Nach dem zweiten Befehl steht 
also in AI die Adresse vom 1. Bereich, nämlich 
$07AF00. Der nachfolgende Befehl lädt die 
Adresse vom 2. Bereich, nämlich $07D700 in 
das Adreßregister A2. 

Nun kommt endlich unser guter alter Bekannter 
„MOVE“. Hier wird eine direkt angegebene 
Zahl in Register DO geladen. Aber um was für 
eine Zahl handelt es sich hierbei? Wir wollen in 
unserem Programm zwei Speicherbereiche 
austauschen. Das kann man z.B. Byte für Byte 
machen. Aber beim 68000 kann man auch 2 
Bytes (Word) oder gar 4 Bytes (Long) gleichzei¬ 
tig transportieren! Das wollen wir hier ausnut¬ 
zen. In DO wird also die Länge der Bereiche in 
„Longs“ geladen. Das ist die Länge der Berei¬ 
che (in Bytes), geteilt durch 4. (Warum dann 
noch eine 1 abgezogen werden muß, wird wei¬ 
ter unten erläutert). Dann beginnt mit dem Label 
,TNext‘ schon die Programmschleife. Zunächst 
laden wir ein Long (4 Bytes) aus dem Bereich 1 
in das Register Dl. Wie das geschieht, sollte 
eigentlich klar sein: In AI steht die Adresse vom 
Bereich 1, folglich kann man mit der Adressie¬ 
rungsart „Adreßregister indirekt“ ein Long ab 
dieser Adresse holen. 

Danach wird ein Long aus dem Bereich 2 in den 
Bereich 1 transportiert. Die Quelladresse .(A2)‘ 
ist klar, A2 zeigt ja auf den Bereich 2. Die 
Zieladresse ,(A1)-K‘ gibt zum einen die Adresse 
vom Bereich 1 an, zum anderen wird nach dem 
Zugriff das Adreßregister A1 erhöht. Das be¬ 
deutet: Nach diesem Befehl steht in AI die 
Adresse $07AF04, also die Adresse vom näch¬ 
sten zu bearbeitenden Long. 

Der nächste Befehl transportiert das Long, das 
wir in D1 gespeichert haben, aus dem Bereich 1 
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in den Bereich 2. Dabei wird wieder die Adres¬ 
sierungsart „Adreßregister mit Postinkrement“ 
gewählt, so daß nach dem Befehl auch A2 auf 
die nächste zu bearbeitende Adresse zeigt. 

Nun haben wir das erste Long der beiden Berei¬ 
che mit Hilfe des Registers Dl ausgetauscht. 
Außerdem wurden durch die geschickte Wahl 
der Adressierungsarten die neuen Adressen in 
AI und A2 erzeugt (in AI steht $07AF04, in A2 
steht $07D704). Jetzt muß nur noch die Schlei¬ 
fe wiederholt werden, bis die Bereiche abgear¬ 
beitet sind. 

Das wird durch den nächsten Befehl „DBF" 
erledigt. Es handelt sich hier um einen Befehl 
der Gruppe „DBcc“, wobei die Bedingung ,cc' 
mit ,F‘ (False) angegeben ist. Diese Befehls¬ 
gruppe macht folgendes: 

Zunächst wird die Bedingung ,cc‘ getestet. Trifft 
diese Bedingung zu, so macht der Befehl gar 
nichts (hat also dieselbe Wirkung wie ein 
„NOP"). Die Bedingung ,F‘, die hier gewählt 
wurde, steht für „False". Diese Bedingung ist 
nie erfüllt, also geht der Befehl noch weiter. 

Wenn nämlich die Bedingung nicht erfüllt Ist, so 
wird das Datenregister, das im Befehl angege¬ 
ben Ist (hier DO), um 1 erniedrigt („Decre- 
ment"). Wenn der Wert Im Register danach 
ungleich -1 ist, so wird zu dem angegebenen 
Label (hier ,TNext') verzweigt. Wenn sich aber 
Im Register der Wert -1 ergibt ($FFFF), so wird 
nicht verzweigt; das Programm macht dann mit 
dem nächsten Befehl weiter. 

Mit unserem Befehl wird also Register DO, das 
die Zahl der Schleifendurchläufe zählt, ernied¬ 
rigt. Wenn die Bereiche noch nicht abgearbeitet 
wurden, wenn also DO noch größer als Null ist, 
so wird daraufhin die Schleife wiederholt. Das 
ganze geht so lange, bis DO am Ende den Wert 
,-1' erreicht. Dann ist die Schleife beendet, und 
das Programm geht nach dem .DBF' weiter. 
Den Befehl „DBF“ kann man im Assembler 
auch als „DBRA“ (Decrement and BRAnch) 
angeben. Das deutet darauf hin, daß es nur ein 
Dekrement und ein eventuelles Verzweigen 
(BRAnch) gibt, ohne daß eine Bedingung ,cc‘ 
getestet wird (,F‘ ist ja nie erfüllt). Welche der 
beiden Schreibweisen verwendet wird, hängt 
vom persönlichen Geschmack ab. 

Wenn am Anfang der Schleife in DO eine ,0‘ 
gestanden hätte, was wäre dann passiert? Die 
Schleife wäre dann einmal durchlaufen worden, 
bis zum „DBF“. Dort wird DO um 1 erniedrigt 
und erreicht gleich den Endwert von -1. In die¬ 
sem Fall wird die Schleife also genau einmal 
durchlaufen. Man sieht, daß man für n Durchläu¬ 
fe der Schleife am Anfang den Schleifenzähler 
auf n-1 setzen muß. Dies ist der Grund dafür, 
daß ganz zu Beginn in DO die Zahl der Longs 
(„Länge/4“) minus 1 geladen wurde. 

Nachdem die Schleife vollständig abgearbeitet 
wurde, sind wir auch schon fertig: Die beiden 
Bereiche sind ausgetauscht worden. Da wir am 
Anfang des Unterprogramms die Register DO, 
Dl, AI und A2 auf den Stack gerettet hatten, 
müssen wir sie jetzt am Ende der Routine wie¬ 
der vom Stack herunterholen. Das geht wieder 
mit dem „MOVEM"-Befehl: Diesmal wird als 
Queliadresse ,(A7)-l-‘ angegeben, so daß die 
Register tatsächlich vom Stack geholt werden. 


Die Register werden dabei automatisch genau 
In der richtigen Reihenfolge vom Stack geholt, 
also zuerst A2, dann AI, Dl und am Ende DO. 
Das Programm wird ganz normal mit einem 
„RTS“ beendet. Das Ergebnis des Programms 
sieht man in der Abb. 6. Es handelt sich um den 
Bildschirm aus Abb. 5, wobei die beiden ange¬ 
gebenen Bereiche vertauscht wurden. Ruft man 
das Programm nochmals auf, so entsteht wieder 
der Bildschirm aus Abb. 5. Das Programm 
„Tausch“ arbeitet also korrekt. 



Abb. 6 


8.2. MUUDIV-Test 

Mit dem nächsten Programm wollen wir die 
Befehle zur Multiplikation und Division von gan¬ 
zen Zahlen näher untersuchen. Der 68000 bie¬ 
tet jeweils zwei Befehle für diese Aufgaben an, 
zum einen unter Berücksichtigung des Vorzei¬ 
chens (MULS, DIVS) und zum anderen ohne 
Vorzeichen (MULU, DIVU). Wir wollen hier nur 
die Befehle ohne Vorzeichen untersuchen. 

Was machen nun diese beiden Befehle? „MU¬ 
LU“ multipliziert zwei 16-Bit-Zahlen. Das Er¬ 
gebnis ist dann eine 32-Bit-Zahl. Bei „DIVU“ 
geht es gerade umgekehrt: Der Dividend ist 
eine 32-Bit-Zahl, der Divisor eine 16-Bit-Zahl. 
Beim Ergebnis ist folgendes zu beachten: Der 
Quotient ist 16 Bit breit und steht am Ende in 
den unteren 16 Bits des Ergebnisses. Falls bei 
der Division ein Rest aufgetreten ist, so steht 
dieser In den oberen 16 Bits des Ergebnisses. 
Das Ergebnis einer Division ist also 32 Bit lang. 
Dies wird noch einmal In der Abb. 7 verdeut¬ 
licht. 

Mit unserem Unterprogramm wollen wir testen, 
wie schnell diese eingebauten Befehle sind. Zu 
diesem Zweck schreiben wir zwei kleine eigene 
Unterprogramme, die die Multiplikation und die 
Division „zu Fuß“, also im Prinzip nur mit Addi¬ 
tion und Subtraktion nachbilden. Anschließend 
schreiben wir unser Testprogramm „MUL/DIV- 
Test“, bei dem sehr oft multipliziert und dividiert 
wird. Das Ganze lassen wir dann einmal mit den 
eingebauten Befehlen und dann mit unseren 
eigenen Routinen laufen. Dabei stoppen wir 
jedesmal die Zeit, die insgesamt für das Test¬ 
programm benötigt wird. 

Soweit der Überblick über unser Vorhaben. Zu¬ 
nächst schreiben wir unsere Programme für die 
Multiplikation bzw. Division. Weil man das Er¬ 
gebnis am Ende besser vergleichen kann, bet¬ 
ten wir die 68000-Befehle dazu auch in ein 
Unterprogramm ein, das dann allerdings nur aus 
einem Befehl besteht. 
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Multiplikation & Division 


DO uorher; 


$hkhh 03E8 (1000 dez.) 


MULU ^3,00 
DIUÜ ^700,00 


0000000000000000000(11 Dl 110111000 


0000000011001OOOOOOOODOOOOQOOl00 


Resi Quotient 


$00000008 (3000 dez.) 
$00080004 (4, Rest 200) 


Abb. 7 


8.2.1. Multiplikation 

Es sollen die beiden 16-Bit-Zahlen in den Regi¬ 
stern DO und D1 multipliziert und das Ergebnis 
in DO abgelegt werden. Die beiden Unterpro¬ 
gramme „MUL1" und „MUL2'‘ sind im Listing 
2 abgebildet. „MULI" benutzt den Multiplika¬ 
tionsbefehl „MULU“, die Routine „MUL2" 
macht dasselbe mit fortlaufender Addition. Es 
würde hier zu weit führen, die Schritte im ein¬ 
zelnen zu erklären. 


8.2.2. Division 

Hier wird die 32-Bit-Zahl im Register DO durch 
die 16-Bit-Zahl in D1 dividiert. Das Ergebnis 
steht danach im Register DO (32 Bits). Die bei¬ 
den Unterprogramme dazu sind im Listing 3 
gezeigt. „DIV1 “ benutzt wieder den Divisions¬ 
befehl, „DIV2" macht das mit Subtraktion nach. 
Auch hier kann nicht auf die einzelnen Schritte 
der Routine eingegangen werden. Zu erwähnen 
ist aber das Verhalten bei Überlauf oder Division 
durch Null. Im letzteren Fall wird eine Unterbre¬ 
chung (ein „Trap“) ausgelöst. Der Prozessor 
springt dabei zu einer besonderen Routine, Bei 
einem Überlauf wird das V-Flag im Statusregi¬ 
ster gesetzt, die Operanden werden aber nicht 
verändert. Dieses Verhalten wurde auch in der 
Routine „DIV2“ nachgebildet, obwohl dies beim 
Testprogramm nicht benötigt wird. 

8.2.3. Testprogramm 

Nun zum eigentlichen Testprogramm. Norma¬ 
lerweise müßten wir ja zwei Testprogramme 
schreiben: Eines, das die 68000-Befehle be¬ 
nutzt, und ein anderes mit den nachgebildeten 
Routinen. Weil diese Programme aber sonst 
dasselbe leisten, habe ich hier ein einziges 
Testprogramm geschrieben, das im Listing 4 
zu sehen ist. Das Programm hat zwei unter¬ 
schiedliche Einsprungstellen „Test1" und 
„Test2“, je nachdem, welche Routinen aufgeru¬ 
fen werden sollen. 

An diesen Einsprungstellen geht es zunächst 
einmal auf bekannte Art und Weise los: Die 
benutzten Register werden mit dem 
„MOVEM"-Befehl auf den Stack gerettet. Es 
sind hier die Register DO, D1, A2 und A3. 

Dann kommt der ebenfalls schon bekannte 
„LEA“-Befehl. Hier wird in das Adreßregister 
A2 die Adresse der Multiplikationsroutine gela¬ 
den, in A3 die Adresse der Divisionsroutine. 
Jedesmal ist die Effektive Adresse mit der 
Adressierungsart „Programmzähler mit Index“ 
vom Assembler benutzt worden. Wie weiter 


oben im Abschnitt über die Adressierungsarten 
schon gesagt, läßt sich diese Adressierungsart 
mit der „relativen" Adressierung beim 6502 
vergleichen. Es wird also in einem Erweite¬ 
rungswort der Offset zu der gewünschten 
Adresse festgehalten. Wenn man sich nun im 
Programm-Listing die Adressen der einzelnen 
Routinen anschaut, so sieht man, daß zuerst die 
Routinen „MUL1“ und „MUL2“, dann „DIV1“ 
und „DIV2“, und am Ende das Testprogramm 
„MUL/DIV-Test" kommt. Deshalb sind die vier 
Erweiterungsworte mit den Offsets, die ab 
Adresse $037E, $0382, $038E und $0392 zu 
finden sind, alle negativ. 

Am Ende dieser Sequenz zeigen also die 
Adreßregister auf die Unterprogramme, die wir 
zum Test ausführen wollen. 

Die Routine „Test! “ springt dann mit dem Be¬ 
fehl „BRA“ zum Label ,TestX'. An dieser Stelle 
geht es gemeinsam weiter. Zunächst wird in D1 
ein Startwert von $8000 eingetragen. Später 
sollen alle Zahlen bis zu diesem Wert mit sich 
selbst multipliziert, das Ergebnis dann wieder 
durch diese Zahl geteilt werden. Wir rechnen 
also zunächst ,x ^ x‘, danach ,(x \2) / x‘, wobei 
X von $8000 abwärts bis zur 1 laufen soll. 

Der nächste Befehl schreibt das Word 8 auf den 
Stack. Danach folgt der Makro-Befehl „_Sys- 
Beep". Hiermit wird beim Macintosh ein Piepser 
auf dem Lautsprecher ausgegeben. Wie lange 
dieser Piepser dauern soll, muß vorher auf den 
Stack geschrieben werden. Bei uns ist die Dau¬ 
er des Tons ,8 Einheiten'. Dieser Wert wird von 
dem Programm, welches den Ton erzeugt, wie¬ 
der vom Stack gelöscht. Wir können also ganz 
normal weitermachen, so als ob wir nichts am 
Stack verändert hätten. Mit diesem Piepser soll 
der Start des Testprogramms angezeigt wer¬ 
den, damit wir nachher ab hier die Zeit stoppen 
können, die die Testprogramme benötigen. 
Nach dem Piepser kommt die Programmschlei¬ 
fe „TestLoop“. Zunächst wird der augenblickli¬ 
che Wert von ,x‘ aus D1 in DO kopiert. Falls er 0 
ist, sind wir fertig, und das Programm verzweigt 
zum Label ,TestEnd‘. 

Ansonsten wird nun die Multiplikationsroutine 
aufgerufen, die uns ,x ^ x‘, also ,xf 2' In DO 
zurückliefern soll. Die Adresse der Routine ha¬ 
ben wir nämlich in dem Register A2 gespei¬ 
chert. Der Befehl „JSR (A2)“ springt an die 
Adresse, die in A2 angegeben ist, also entwe¬ 
der zu „MUL1 “ oder zu „MUL2", je nachdem, 
ob wir das Programm über „Testi“ oder über 
„Test2“ begonnen haben. Man sieht hier sehr 
schön, wie elegant sich mit dem 68000 pro¬ 
grammieren läßt. 
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Nach der Multiplikation steht also in DO ,xt 2', 
In Dl steht immer noch ,x‘. Jetzt wird analog die 
Divisionsroutine aufgerufen, deren Adresse in 
A3 steht. Das Ergebnis steht danach in DO. Wie 
müßte denn das Ergebnis aussehen (32 Bits!)? 
Die Rechnung lautete ,(x 12) / x'. Der Quotient 
(in den unteren 16 Bits von DO) müßte also ,x' 
sein, der Rest der Division (in den oberen 16 
Bits) Null. Wenn man alle 32 Bits betrachtet, so 
müßte in DO also der Wert ,x‘ stehen. Das kann 
man leicht überprüfen; In Dl steht nämlich noch 
der Wert von ,x‘. Wenn man nun alle 32 Bits von 
DO mit denen von Dl vergleicht (mit „CMP.L"), 
so weiß man, ob die Rechnung korrekt erfolgt 
ist. 

Wie soll es jetzt weitergehen? Bei einem Fehler, 
wenn also der Vergleich ergeben hat, daß DO 
<> Dl ist, soll abgebrochen werden. Anson¬ 
sten soll D1 erniedrigt werden, damit mit dem 
neuen Wert für ,x‘ weitergerechnet werden 
kann. Mit diesem Wert soll dann die Schleife 
wiederholt werden. 

Alles dies kann man mit einem Befehl erledi¬ 
gen: Er lautet „DBNE". Man kann dies als Ab¬ 
kürzung für „Decrement and Branch until Not 
Equal“ auffassen. Was der Befehl macht, wis¬ 
sen wir schon aus dem ersten Beispielpro¬ 
gramm. Er testet, ob die Bedingung „Not 
Equal" erfüllt ist. Wenn das der Fall ist, ist ein 
Fehler aufgetreten. In diesem Fall macht der 
Befehl nichts („NOP“). Sonst (wenn also DO 
und Dl gleich waren) wird Dl um 1 erniedrigt. 
Wenn dabei eine Zahl ungleich -1 entsteht, wird 
zum Label .TestLoop' gesprungen. Weil dies 
auch der Fall ist, wenn Dl zu Null wird, haben 
wir diesen Fall zu Beginn der Schleife abgete¬ 
stet, denn sonst würde durch ,x', also durch Null 
dividiert. 

Wenn also das Programm nach dem „DBNE“- 
Befehl angekommen ist, ist ein Fehler aufgetre¬ 
ten. In diesem Fall soll ein langer Piepser aus- 
gegeben werden. Zu diesem Zweck schreiben 
wir den Wert $40 auf den Stack. Mit dem näch¬ 
sten Sprungbefehl „BRA“ springen wir zum 
Label .TestBeep', wo dann derTon ausgegeben 
und das Programm beendet wird. 

Wenn aber die Programmschleife korrekt arbei¬ 
tet, bis Dl den Wert Null erreicht hat, so springt 
das Programm zum Label .TestEnd'. Hier soll 
ein kurzer Piepser ausgegeben werden zum 
Zeichen dafür, daß alles korrekt abgelaufen ist 
und daß die Zeitmessung nun abgebrochen 
werden kann. Die Dauer des Tons, d.h. 8, wird 
auf den Stack geschrieben. 

Ab dem Label .TestBeep' müßte nun alles klar 
sein. Wie oben beschrieben, wird der Ton aus¬ 
gegeben. Anschließend werden die Register 
wieder vom Stack geholt, und das Unterpro¬ 
gramm „Testi “ bzw. „Test2" wird verlassen. 

Wie sehen nun die Ergebnisse aus, die wir mit 
unseren Programmen messen können? Das 
Resultat ist; 

1,6 sec für "Testi", und 
10,8 sec für "Test2", 

Man sieht also, daß die eingebauten 68000- 
Befehle schneller arbeiten als die Routinen „zu 
Fuß“. Abgesehen davon kann man die Befehle 
auch viel flexibler und komfortabler elnsetzen 


16 


Peeker 9/86 















f ÄPPUF- 


r, 


Sie haben einen Apple ... 


und die 
Hardware... 


wir haben die 
Software ... 


und die 

Zeitschriften *.. 


wir haben die 
Bücher... 


*Fordem Sie unseren Gratiskatalog an! 

ALLES FÜR DEN APPLE 11+, Ile, llc UND MACINTOSH 

PCinClCI^^^FtDr.-Ing. 

Uhlandstraße195- D-1000 Berlin 12 ^ 

Tel.: 030/310423 ■ Telex 185859 


!W Druckerinterfaces für Apple ll+/e/ 
c/lll Interfaces auf dem neuesten 
Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber¬ 
software wird über Dip-Switch ausgewählt. 


GlBDOldT ^ Grafikfähiges Druckerinterface 
^ rlwnlEfinttri«. dos kelce Wünsche mehr offen läßt. 
Über 2 Dutzend Kommandos ermöglichen die volle Kontrolle 
über alle Möglichkeiten Ihres ir, ^ ^ . 

Druckers. Jetzt auch mit gv. - . A .ßil.pilliv 

Ile Features: Double Hires , 

Grafics und 80 Zeichen Dump 

mittels Druckerpuffer nachrüstbar 


Oiap|^ + 


ten 16 K Druckpuffer, der auf 
32 oder 64 K aufrüstbar ist. 


Besitzt alle Vorzüge des Grappier + 
hat aber zusätzlich einen integrier- 


I Serielles Druckerinterface 

speziell für den Apple Image- 

PrlnUr Inlcrficc writer. 


SERIAL I 

Giappler 

■ ■ Printer Inlcrbcc 

^OTUNK 
^RAPPLER C 


panda>#Ft 


Seriell-nach-Parallel-Wandler für 
den llc im Kabel integriert, 

wie Hotlink, jedoch zusätzlich 
Imagewriter Emulation und Grafik 
Software-Diskette. 


Dr.-Ing. Eden 


Kataloganforderung und Bestellung: Tel.: 030/31 04 23 ■ Telex 185 859 
Uhlandstraße 195 ■ D-1000 Berlin 12 


Dkyan 

PhBChL 

Pascal Compiler für Apple II (+^e^c) 

• erzeugt 6502 Assembler-Code 

• benötigt keine Z-80 Karte 

• läuft unter Prodos 

• integrierter Assembler 

• inclusive Editor (full screen) 

• mehrfach in Peeker getestet 

• neu: Kix eine Uni^^ähnliche 

Betriebssystem Umgebung 

Kennenlernaktion bis 30. Juni: 

Kyan 2.0 inkl. KIX: DM 198,- 

nach Ablauf der Kennenlernaktion: 

Kyan 2.0 alleine DM 198,00 
Kyan 2.0 inkl. Kix: DM 278,00 

Unix ist ein eingetragenes Warenzeichen der Bell Laboratories 

|3CIDClCl^f^FtDr.-Ing. Eden 

Kataloganforderung und Bestellung: Tel.: 030/3104 23 ■ Telex 185 859 
Uhlandstraße 195 • D-1000 Berlin 12 


C ieckmate Technology 

™ Speichererweiterungen 

mit Zukunft 

für Apple Ile und Apple IIc 


Multiram Leistungsmerkmale: 

• 16bit CPU Port 

• 65C816 Coprozessor, der den Multiram Speicher 
linear addressieren kann (sofort lieferbar) 

• inclusive Apple Works Memory Expander 
(endlich genug Speicherplatz für Appleworks) 

• inkl. Ramdisk Software für DOS und ProDos 

• Ramdisk für Pascal und CP/M optional 


speziell beim Apple Ile; 

• auf einer Karte bis max. 1MB erweiterbar 
mit Huckepackkarte auf 1,7 MB erweiterbar 

• kommt in Auxiliary Slot (3) 

• ersetzt erweiterte 80 Zeichen Karte 

• RGB Farboption lieferbar 


speziell beim Apple IIc: 

• bis 512k erweiterbar 

• ohne externes Laufwerk echt portabel 


panda>#Ft 


Dr.-Ing. Eden 


Kataloganforderung und Bestellung: Tel.: 030/31 04 23 ■ Telex 185859 
Uhlandstraße 195 • D-1000 Berlin 12 
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als die eigenen Routinen. (Es kann natürlich 
auch so sein, daß meine Routinen nicht optimal 
sind. Vielleicht kennt oder findet ein Leser 
schnellere Algorithmen.) 

An unserem Beispiel kann man auch noch fest- 
halten, wie elegant sich durch Befehle wie 
„DBNE" oder „LEA" und „JSR (An)“ program¬ 
mieren läßt. 

Als Überleitung zu unserem letzten Beispielpro¬ 
gramm sollten Sie sich einmal fragen, wie man 
Parameter an Unterprogramme übergeben 
kann, z.B. an eine Routine, die zwei Zahlen 
multipliziert, oder an eine Routine, die einen 
Ton mit bestimmter Dauer ausgibt. 

Bei unserer Routine „MUL2“ wurden beide zu 
multiplizierenden Zahlen In den Registern DO 
und D1 übergeben, und die Routine gab das 
Ergebnis ebenfalls im Register DO zurück. Man 
kann also Parameter für Unterprogramme In 
Registern ablegen. Was macht man aber, wenn 
man nun so viele und so große Parameter hat, 
daß dadurch die meisten Register belegt sind, 
obwohl man sie für andere Zwecke brauchte? 
Eine in vielen Fällen elegantere Methode wird 
uns bei der Macintosh-Routine „SysBeep" de¬ 
monstriert: Der Parameter (die Dauer des Tons) 
wird auf den Stack geschrieben. Von dort holt 
sich die Routine die Zahl und wertet sie ent¬ 
sprechend aus. Diese zweite Möglichkeit der 
Parameterübergabe wird beim Mac vorwiegend 
verwendet. Man schreibt also einfach die Para¬ 
meter auf den Stack (natürlich in der richtigen 
Reihenfolge) und ruft dann das Unterprogramm 
auf. Das Unterprogramm kann dann die Para¬ 
meter, die es benötigt, nach Belieben verar¬ 
beiten. 

Diese zweite Methode wird auch benutzt, wenn 
Pascalübersetzer eine Pascal-Prozedur in P- 
Code oder in Maschinensprache übersetzen. 
Wie das im Prinzip vor sich geht, wollen wir in 
unserem letzten Beispiel verdeutlichen. 


8.3. Ackermann-Funktion 

Wir wollen hier die sog. „Ackermann‘‘-Funktion 
berechnen. Es handelt sich dabei um eine 
höchst rekursive Funktion, die im Informatik- 
Unterricht gerne als Übungsbeispiel herange¬ 
zogen wird. Diese Funktion hat als Parameter 
zwei natürliche Zahlen ,x' und ,y‘ und berechnet 
daraus die Ackermann-Funktion ,A (x,y)'. Dabei 
ist ,A! wie folgt definiert: 

A (0,y) y + 1 

A (x^0) 1 = A (x-1,1) für x>0 

A (x,y) := A (x-1, A (x.y-1)) für x,y>0 

Wie man sieht, läßt sich schon für kleine Para¬ 
meter das Ergebnis nur mit Mühe berechnen. 
Deshalb soll nun eine Prozedur geschrieben 
werden, die den Wert ,A (x.y)‘ für gegebene 
Zahlen ,x‘ und ,y‘ berechnet. 

Zu diesem Zweck schreiben wir erst einmal 
eine solche Prozedur in der Programmierspra¬ 
che Pascal. Diese Prozedur können wir dann 
recht problemlos in Maschinensprache überset¬ 
zen. da der 68000 gut für solche Aufgaben 
vorbereitet ist. 

Die Pascal-Funktion „Ack“ ist schnell geschrie¬ 
ben. Listing 5 zeigt eine Möglichkeit, sie zu 
implementieren. Wie kommt man nun von der 
Pascal-Funktion zu dem Unterprogramm in Ma¬ 


schinensprache? Wir werden hier Schritt für 
Schritt Vorgehen. 

Zunächst einmal erwartet die Funktion „Ack“ 
zwei ganze Zahlen als Parameter und gibt ihrer¬ 
seits das Ergebnis als ganze Zahl zurück. Wie 
wir uns schon überlegt haben, kann man solche 
Parameter elegant auf dem Stack übergeben. 
Wir vereinbaren also, daß das Unterprogramm 
„Ackermann“ wie folgt aufgerufen werden 
muß: 

CLR.L -(A7) 

(Platz machen für Ergebnis) 

MOVE.L "x",-(A7) 

(ersten Parameter auf Stack schreiben) 

MOVE.L ''y".-(A7) 

(zweiten Parameter ebenso behandeln) 

JSR Ackermann 
(Funktion aufrufen) 


Es ist vielleicht im Moment noch nicht ganz 
einzusehen, warum zuerst ein Long auf dem 
Stack reserviert werden muß, um das Ergebnis 
dort zu speichern. Dies wird aber im weiteren 
Verlauf der Erklärung deutlicher werden. 


Stack am 
Anfan g uon 
“Ackermann“ 


Ergebnis 


Rückspr.A 


$10 
$C 
8 

0 

-8 

-$C 

t 

Offset ab A7 

Abb. 8 


•R7 


Wenn nun das Unterprogramm „Ackermann“ 
aufgerufen wurde, sieht der Stack wie in der 
Abb. 8 aus. Nun kommt in der Pascal-Funktion 
„Ack“ die Definition der Variablen xMint und 
yMin1. Das heißt, es wird Speicherplatz reser¬ 
viert, den man unter dem Namen ,xMin1‘ an¬ 
sprechen kann. Weiterhin gilt dieser Name bei 
Pascal nur in der Funktion selbst, nicht in der 


äußeren Umgebung. Man spricht hiervon „lo¬ 
kalen“ Variablen. 

Um sich einen solchen Platz für lokale Variablen 
einrichten zu können, gibt es beim 68000 den 
Befehl „LINK“. Wir betrachten hier beispiels¬ 
weise den Befehl „LINK A6,-8“, der auch in 
unserem Programm benutzt wird. Man könnte 
diesen Befehl auch durch die folgenden 3 be¬ 
kannten Befehle ersetzen: 

MOVE.L A6,-(A7) 

(A6 auf Stack retten) 

MOVEA.L A?,A6 

(alten SP (A?) in A6 kopieren) 

ADDA.L #-8,A7 

(SP um 8 Bytes nach unten setzen) 

Zunächst einmal wird also der Inhalt vom 
Adreßregister A6 auf den Stack gerettet. An¬ 
schließend wird der momentane Stand des Sta¬ 
pelzeigers in dieses Adreßregister A6 kopiert. 
Am Ende schließlich wird der Stackpointer um 8 
erniedrigt. Das Ergebnis dieses Befehls ist in 
der Abb. 9 zu sehen. Wie man leicht erkennen 
kann, sind nun „unterhalb von A6“ 8 Bytes auf 
dem Stack frei. Wir haben also dort Platz für 2 
Longs gemacht. Wie kann man nun auf diese 
beiden Longs zugreifen? Nichts leichter als das: 
Wenn man z.B. beide Longs auf Null setzen 
möchte, so muß man nur 

CLR,L -4(A6) 

CLR.L -8(A6) 

programmieren. Dadurch werden beide Longs 
gelöscht. Dies wird alles noch klarer, wenn man 
nachher unser Programm „Ackermann“ an¬ 
schaut. 


stack nach 
LINK 


^ Bytes “l 



t 


-fi6 


-fl? 


Offset ab Ä6 l 


Abb. 9 


Wie man Platz für lokale Variablen auf dem 
Stack reserviert, haben wir nun gesehen. Wie 
bekommt man am Ende seines Unterpro¬ 
gramms den Stack aber wieder in Ordnung? 
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Auch dafür gibt es einen Befehl: „UNLK A6‘'. Er 
dreht die Wirkung des .,LINK“-Befehl praktisch 
um. Die Wirkung: 

MOVEA.L A6,A7 

(SP wieder auf den alten Stand bringen) 
MOVEA.L (A7}+,A6 

(alten Inhalt von A6 wiederholen) 


Zuerst wird der alte Stand des Stackpointers, 
der im Register A6 festgehalten wurde, wieder 
in A7 geholt. Dadurch ist der Platz für die loka¬ 
len Variablen praktisch wieder frei. Nun muß nur 
noch der alte Wert von A6 wieder vom Stack 
geholt werden, und schon ist alles wie früher 
(wie in Abb. 8). 

Mit diesem Vorwissen kann nun das Unterpro¬ 
gramm „Ackermann" schnell geschrieben wer¬ 
den. Als Voraussetzung kann man annehmen, 
daß zu Beginn der Routine der Stack wie in Abb. 
8 aussieht. Dann geht das Programm in Listing 
6 los: 

Zunächst wird mit dem „LINK“-Befehl Platz für 
die beiden Longs ,xMin1 ‘ und ,yMin1 ‘ gemacht, 
wie es oben beschrieben wurde. Der Stack 
sieht jetzt wie in Abb. 9 aus. Anschließend 
könnten mit einem „MOVEM“-Befehl wie ge¬ 
wohnt die verwendeten Register gerettet wer¬ 
den. Da wir aber in unserem Unterprogramm 
keine (!) Register verwenden, brauchen wir 
auch keinen „MOVEM"-Befehl. 

Nun geht es mit dem „Rumpf" der Pascal- 
Funktion „Ack“ weiter: Dort wird getestet, ob 
der Parameter ,x‘ auf Null war. Wo steht denn 
nun aber dieser Parameter? Ein Blick auf Abb. 9 
zeigt: Man kann ihn $C Bytes über A6 finden! 
Damit wir uns das nicht jedesmal merken müs¬ 
sen, folgen nun im 68000-Programm einige 
Vereinbarungen, wie der Stack aussehen und 
wo man die einzelnen Variablen finden kann: 
Der Parameter ,x‘ beispielsweise liegt $C Bytes 
über A6. Mit dem Befehl „x EQU $C(A6)‘' wird 
nun festgehalten, daß ,x‘ eben $C Bytes über 
A6 zu finden ist. Der Assembler setzt nun je¬ 
desmal, wenn wir ,x‘ schreiben, den String 
„$C(A6)" ein. Genauso verfahren wir mit dem 
zweiten Parameter ,y‘ und mit den beiden loka¬ 
len Variablen ,xMin1 ‘ und ,yMin1 ‘. Jetzt fehlt nur 
noch das Ergebnis, dessen Ort wir uns unter 
dem Namen „Result“ merken. Durch diese 
Vereinbarungen läßt sich nun sehr elegant pro¬ 
grammieren, wie man gleich sehen wird. 

Jetzt programmieren wir den Test, in dem über¬ 
prüft wird, ob ,x‘ auf Null ist: Mit dem Befehl 
„TST.L x“ wird der Parameter ,x‘ mit Null vergli¬ 
chen. Wenn ,x‘ ungleich Null ist, so wird zum 
Label ,xGT0‘ gesprungen. Ansonsten ist das 
Funktionsergebnis ,y-Fl‘. Das wird mit den 
nächsten beiden Befehlen bewerkstelligt, die 
eigentlich klar sein sollten. Damit können wir 
nun zum Ende der Funktion, zum Label ,Ack- 
End‘ springen. 

Wenn ,x‘ größer als Null ist, kommt das Pro¬ 
gramm zum Label ,xGT0‘. Dies entspricht der 
Stelle nach dem ersten „eise“ im Pascal-Pro¬ 
gramm. Dort geht es weiter mit der Berechnung 
von ,xMin1‘, die sich nun auch im Assem¬ 
blerprogramm anschließt. Der zweite Test ,y=0‘ 
verläuft genau wie der erste. Wenn ,y' größer 
als Null ist, erfolgt ein Sprung zum Label ,yGT0‘. 

Nun wird es interessant: Wenn nämlich ,y‘ doch 
Null ist, muß die Funktion „Ackermann" rekur- 


Listing 1: Tausch 

; Dieses Unterprogramm tauscht die Inhalte zweier gleichgroßer Speicher- 
; bereiche gegeneinander aus. Die Bereiche sind so gewählt, daß sie im 
; Bildschirmspeicher des Macintosh liegen, damit das Ergebnis überprüft 
; werden kann. 

; Zunächst einige Definitionen: 


0007A700 


Bildschirm EQU $07A700 


; Anfangsadr.v- Bildschirm 


0007AF00 

0007D700 

2400 


Zeile EQU $40 ; Zahl der Bytes je Zeile 
Bereichl EQU $20*Zelle+Bildschirm ; Adr.v. Ber.l 
Bereich2 EQU $C0*Zeile+Bildschirm ; Adr.v. Ber.2 
Laenge EQU $90#Zeile ; Länge der Bereiche 


; Dann folgt das 

eigentliche Programm: 





Tausch 


Tauschen zweier Bereiche 

02F0 - 48E7 

C060 

MOVEM.L 

D0-Dl/Al-A2,-(A7) ; 

Register retten 

02F4 - 43F9 

0007 

AF00 LEA 

Bereichl,Al ; 

Al: = 

Adr.v. Bereich 1 

02FA - 45F9 

0007 

D700 LEA 

Bereich2,A2 ; 

A2; = 

Adr.v. Bereich 2 

0300 - 303C 

08FF 

MOVE.W 

tLaenge/4-l,D0 ; 

D0: = 

Zahl der Longs -1 



TNext 




0304 - 2211 


MOVE.L 

(Al),Dl ; 

Dl; = 

Long aus Bereich 1 

0306 - 22D2 


MOVE.L 

(A2),(A1)+ ; 

Long 

von Ber.2 in Ber.1 

0308 - 24C1 


MOVE.L 

D1,(A2)+ ; 

Dl in Bereich 2 schreiben 

030A - 51C8 

FFF8 

DBF 

D0,TNext ; 

Wdh.. 

, sooft D0 angibt 

030E - 4CDF 

0603 

MOVEM.L 

(A7)+,D0-D1/A1-A2 ; 

Register wiederholen 

0312 - 4E75 


RTS 

; 

Rücksprung aus Tausch 


Listing 2: Muitiplikationsprogramme 

; Diese beiden Unterprogramme multiplizieren zwei 16-Bit-Zahlen aus den 
; Registern D0 und Dl. Das 32-Bit-Ergebnis wird im Register D0 gespeichert. 

MULI ; Multiplikation mit "MULU" 

; D0:= D0 * Dl 
; Rücksprung aus MULI 

; Multiplikation "zu Fuß" 

; Register retten 
; D2:= 0 

; D2:= D0 (-> 32-Bit-Zahl) 

; Ergebnis (D0):= 0 


Vergleiche Dl mit 0 
Wenn D1=0, Sprung ans Ende 

Nächstes Bit von Dl ln C 
Wenn C-Flag=0, Sprung 
Ergebnis (D0) um D2 erhöhen 


D2 nach links schieben 
Wiederhole die Schleife 


0314 

- C0C1 

MULU 

D1,D0 

0316 

- 4E75 

RTS 




MUL2 


0318 

- 48E7 6000 

MOVEM.L 

D1-D2,-(A7) 

0310 

- 4282 

CLR.L 

D2 

031E 

- 3400 

MOVE.W 

D0,D2 

0320 

- 4280 

CLR.L 

D0 



NextBit 


0322 

- 4A41 

TST.W 

Dl 

0324 

- 6700 xxxx 

BEQ 

MulOk 

0328 

- E249 

LSR.W 

tl,Dl 

032A 

- 6400 xxxx 

BCC 

BitWas0 

032E 

- D082 

ADD.L 

D2,D0 



BitWas0 


0330 

- E38A 

LSL.L 

#1,D2 

0332 

- 60EE 

BRA 

NextBit 



MulOk 


0334 

- 4CDF 0006 

MOVEM.L 

(A7)+,D1-D2 

0338 

- 4E75 

RTS 



; Register wiederholen 
: Rücksprung aus MUL2 


Listing 3: Divisionsprogramme 

; Diese beiden Unterprogramme dividieren die 32-Bit-Zahl in Register D0 
; durch die 16-Bit-Zahl ln Register Dl, Das 32-Blt-Ergebnls (Quotient und 
; Rest) wird im Register D0 gespeichert. 


DIVl 


; Division mit "DIV"-Befehl 


033A 

033C 

- 80C1 

- 4E75 

DIVU 

RTS 

D1,D0 

; D0:= D0 / Dl (mit Rest) 

; Rücksprung aus DIVl 



DIV2 


; Division "zu Fuß" 

033E 

0340 

- 4A41 

- 6700 xxxx 

TST.W 

BEQ 

Dl 

Div0Err 

; Vgl. Divisor (Dl) mit 0 
; Bei Division durch 0, Sprung 
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siv aufgerufen werden. Ganz oben haben wir ja 
schon festgelegt, wie der Aufruf des Unterpro¬ 
gramms aussehen soll: Es wird Platz für das 
Ergebnis gemacht, die Parameter ,xMin1 ‘ und 1 
werden auf den Stack geschrieben, und das 
Unterprogramm wird erneut aufgerufen. Späte¬ 
stens an dieser Stelle müssen wir uns überle¬ 
gen, wie der Stack nach dem Unterprogramm 
aussehen soll. 

Wir vereinbaren, daß der Stack bis einschließ¬ 
lich zum Parameter ,x‘ aufgeräumt werden soll. 
Am Ende soll also nur noch das Funktionser¬ 
gebnis auf dem Stack zu finden sein, wie es in 
der Abb. 10 zu sehen ist. 


Stack nach 
" Ackermann" 



Offset ab kl 


Abb. 10 


Wir sind in unserem Assemblerprogramm an 
der Stelle nach dem rekursiven Aufruf stehen¬ 
geblieben. Inzwischen wissen wir, daß hier das 
Ergebnis des rekursiven Funktionsaufrufs, also 
,A (x-1,1)', auf dem Stack zu finden ist. Mit dem 
nächsten Befehl wird dieses Resultat als Ergeb¬ 
nis unserer Funktion gespeichert, und das Pro¬ 
gramm verzweigt an das Ende zu „AckEnd“. 

Im Prinzip dürfte nun klar sein, wie es nach dem 
Label ,yGT0‘ weitergehen muß: Man muß zwei¬ 
mal ineinander verschachtelt die Funktion „Ak- 
kermann" aufrufen. Die Details sind es aber 
doch wert, genau angeschaut zu werden. 


0344 - 4BE7 
0348 - 4841 
034A - 4241 
034C - B081 
034E - 6400 

7000 

xxxx 

HOVEM.L 

SWAP 

CLR.W 

CMP.L 

BCC 

D1-D3,-(A7) : 
Dl ; 
Dl i 
D1,D0 ; 
Overflow : 

Register retten 

Dl {16.,31}:= Divisor 

Dl {0..15}:= 0 

Vgl. Dividend (D0} mit Dl 

Wenn D0>=D1. zu Overflow 

0352 - 4242 
0354 - 760F 


CLR.W 

MOVEQ 

D2 i 

#$F,D3 1 

Quotient (D2):= 0 

Bitzähler (D3):= 16 -1 



DivLoop 



0356 - E289 

1 0358 - B081 

035A - 6500 
035E - 07C2 
0360 - 9081 

xxxx 

LSR.L 

CMP.L 

BCS 

BSET 

SUB.L 

#1,D1 : 
D1,D0 ; 
LessThan ; 
D3,D2 : 
D1,D0 

Dl um 1 Bit nach rechts 

Vgl. Rest (D0) mit Dl 

Wenn Rest<Dl. Sprung 

D3-tes Bit in D2:= 1 

Rest (D0) um Dl erniedrigen 



LessThan 



0362 - 57CB 
0366 - 4840 
0368 - 3002 

FFF2 

DBEQ 
SWAP 
MOVE,W 

D3,DivLoop ; 
D0 ; 
D2,D0 : 

Wdh. bis D0=0 oder D3=-l 

D0 {16.-31};= Rest 

D0 {0..15}:= Quotient 



DivEnd 



036A - 4CDF 
036E - 4E75 

000E 

MOVEM.L 

RTS 

(A7)+,D1-D3 : 

Register wiederholen 
; Rücksprung aus DIV2 



Overflow 



0370 - 003C 
0374 - 60F4 

0002 

ORI.ß 

BRA 

#2,CCR : 

DivEnd : 

V-Flag setzen 

Sprung ans Ende 



Div0Err 





; Routine zur 
: ausgeführt, 

Fehlerbehandlung. Hier nicht näher 

Listing 4; MUUDIV-Test 



; Dieses Programm testet die Multiplikations- und Divisionsbefehle des 
; 68000. Hierzu werden diese Befehle sehr oft ausgeführt. Zum Vergleich 
; werden genauso oft die eigenen Routinen MUL2 und DIV2 aufgerufen, die 
; diese Befehle "zu Fuß" nachbilden. 



; Testl ruft die Routinen MULI und DIVl mit den 
j 68000-Befehlen auf. 



Testl 


; Einsprung für 68000-Befehle 

0378 - 48E7 
037C - 45FA 
0380 - 47FA 
0384 - 4EC0 

C030 

FF96 

FFB8 

xxxx 

MOVEM.L D0-Dl/A2-A3,-( 
LEA MUL1,A2 

LEA DIVl,A3 

BRA TestX 

A7) ; Register retten 

A2:= Adr.v. MULI 

A3:= Adr.v, DIVl 

Zum weiteren Testprogramm 



; Test2 ruft 

die eigenen Routinen MUL2 und DIV2 auf. 



Test2 


; Einsprung für eigene Routinen 

0388 - 48E7 
038C - 45FA 
0390 - 47FA 

C030 

FF8A 

FFAC 

MOVEM.L D0-Dl/A2-A3.-(A7) : Register retten 

LEA MUL2,A2 ; A2:= Adr.v. MUL2 

LEA DIV2,A3 ; A3:= Adr.v, DIV2 



; Hier folgt 

das gemeinsame 

Testprogramm ... 



TestX 


; gemeinsames Testprogramm: 

0394 - 223C 
039A - 3F3C 
039E - A9C8 

0000 

0008 

8000 MOVE.L #$8000,Dl ; 

MOVE.W #8,-{A7) i 

-SysBeep 

; Dl (Zähler, x):= $8000 
: Dauer des Tons auf Stack 
: Anfangs-Ton ausgeben 



TestLoop 



03A0 - 2001 
03A2 - 6700 
03A6 - 4E92 
03A8 - 4E93 

xxxx 

M0VE.L 

BEQ 

JSR 

JSR 

D1.D0 

TestEnd 

(A2) 

(A3) 

D0 := X (Dl) 

Wenn x=0, Sprung ans Ende 

Aufruf von MULI bzw, MUL2 

Aufruf von DIVl bzw. DIV2 

03AA - B081 
03AC - 56C9 

FFF2 

CMP.L 

DBNE 

D1,D0 

Dl,TestLoop 

: Vgl, Ergebnis (D0) mit x 
; Wdh, bis Fehler oder x=-l 



; An dieser Stelle ist ein Fehler aufgetreten! 

03B0 - 3F3C 
03B4 - 4EC0 

0040 

xxxx 

MOVE.W 

BRA 

#$40,-(A7) 
TestBeep 

; Dauer für langen Ton 
; Damit Ton ausgeben.,. 



; Wenn alles okay ist, landet das Programm aber an 
j dieser Stelle. 



TestEnd 
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MS BASIC ist eine höchst moderne und leicht erlernbare 
Programmiersprache 1 

210 reseivierte Begriffe...Programmsynthese aus Modulen (lokale 
Variablen, Wertübergaben mit COMMON)...Nachladen von Segmen¬ 
ten (CHAIN, mit Paramcterübergabe)...Einbinden von MAC-Funktio 
nen (Graphik, Maus, Fenster, Knöpfe usw,).„Fremddateizugriff (von 
MS-BASIC auf Dateien von z.B. MULTIPLAN, MACPAINT, 
WORD)...Programmablaufsteuerung (Ereigniserfassung wie ON 
TIMER, ON MOUSE]...Peripheriebefehle (wie COMI für DFÜ),..struk- 
turiertc BASiC-Programmierung ohne Zeilennummern...Gleit- 
kommaarithmetik. 






MACINTOSH und MS BASIC bilden eine komfortable Pro¬ 
grammierumgebung ! 

Mchrfachfenster für Simultanbeobachtung (z. B, Fenster 1: Haupt* 
Programm, Fenster 2: Unterprogramm; oder Fenster 1: Listing, Fen 
ster 2: Ergebnisse)...Mausedition wie in Textprogrammen...Collage- 
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Zunächst wird erst einmal die Variable ,yMinV 
berechnet, wie im Pascal-Programm auch. 
Dann kommen die Funktionsaufrufe; Der „äu¬ 
ßere" Aufruf benötigt ,xMin1‘ als seinen ersten 
Parameter. Nachdem wir für das Ergebnis Platz 
gelassen haben, wird dieser Wert dann auch auf 
den Stack geschrieben. Wie sieht aber nun der 
zweite Parameter aus? Es handelt sich hier um 
das Ergebnis eines erneuten Aufrufs der Funk¬ 
tion. 

Deshalb geht es an dieser Stelle mit dem zwei¬ 
ten Aufruf weiter. Es ist nun schon klar, wie das 
geschieht: Platz für Ergebnis, 1. Parameter ,x‘. 
2. Parameter .yMinV, Aufruf der Funktion. Das 
Ergebnis liegt jetzt direkt so auf dem Stack, wie 
wir es für den äußeren Aufruf benötigen. Wer 
hier ins Schwimmen kommt, sollte sich den 
Aufbau des Stacks nach jedem Schritt auf ein 
Blatt Papier aufmalen. So bekommt man am 
besten ein Gefühl dafür, was nun wirklich pas¬ 
siert. 

Da an dieser Stelle die Parameter korrekt auf 
dem Stack zu finden sind, kann direkt der äuße¬ 
re Aufruf der Funktion erfolgen. Danach haben 
wir tatsächlich den Ausdruck ,A {x-1, A (x,y-1))‘ 
berechnet! Dieses Ergebnis wird dann nur noch 
wie üblich abgespeichert, und schon befinden 
wir uns am Ende der Funktion, beim Label ,Ack- 
End‘. 

Im Pascal-Programm kommen nun nur noch ein 
paar „end". Was bei uns kommt, ist fast genau¬ 
so einfach: Zunächst könnte man an dieser 
Stelle mit einem ,.MOVEM"-Befehl die verän¬ 
derten Register wieder vom Stack holen. Bei 
uns ist das nicht nötig. Danach wird der Stack 
zum Teil aufgeräumt, indem wir den Befehl 
„UNLK A6" ausführen lassen. Danach hat man 
den Zustand aus Bild 8. Das ist aber noch nicht 
das gewünschte Ergebnis, das man in Bild 10 
sieht, denn es stören noch die Rücksprung¬ 
adresse und die Parameter ,x‘ und ,y'. Diese 
werden wie folgt eliminiert: Man speichert sich 
die Rücksprungadresse im Register AO, erhöht 
dann den Stackpointer um 8 Bytes, so daß auch 
die Parameter „gelöscht" werden. Anschlie¬ 
ßend kehrt das Programm zu der Rücksprung¬ 
adresse zurück, die im Register AO gespeichert 
Ist. 

Das war nun doch ein ganz schönes Stück 
Arbeit! Das Assemblerprogramm sieht dafür 
aber auch nicht schlecht aus. Mit ein bißchen 
Übung kann man es fast genauso leicht lesen 
wie das Pascal-Programm. Genauso geht es 
einem mit der Programmierung solcher Proze¬ 
duren. Die Methode der Parameterübergabe ist 
immer dieselbe, so daß man sich nach ein paar 
Beispielen schnell daran gewöhnt hat. 

Wir haben nun also eine durch und durch rekur¬ 
sive Prozedur in einer so „niedrigen“ Sprache 
wie Assembler programmiert. Ob die Routine 
auch wirklich so läuft, wie wir uns das vorgestellt 
haben? Im LIsting 7 ist ein kleines Testpro¬ 
gramm angegeben. Die Details dieses Pro¬ 
gramms seien dem Leser überlassen. Das Un¬ 
terprogramm „Ausgabe", welches die Rechen¬ 
ergebnisse in lesbarer Form ausgibt, wird hier 
nicht weiter aufgeführt, da es zu sehr auf die 
Eigenheiten des Macintosh eingeht. 

Die Ergebnisse einiger Funktionsaufrufe in der 
Abb. 11 zeigen, daß auch diese komplizierte 


03B8 - 3F3C 0008 MOVE.W #8,-(A7) ; Dauer für kurzen Ton (ok) 

TestBeep 

03BC - A9C8 _SysBeep ; End-Ton ausgeben 

03BE - 4CDF 0C03 MOVEM.L (A?)+.D0-D1/A2-A3 ; Register wiederholen 

03C2 - 4Er5 RTS ; Rücksprung aus TestX 

Listing 5: Die Ackermann-Funktion in Pascal 

function Ack (x, y : integer) : integer; 

{Eingabe: zwei ganze Zahlen x und y} 

{Aufgabe: Die Funktion berechnet die Ackermann-Funktion A (x.y).} 

{Ausgabe: Das Funktionsergebnis A (x.y) wird zurückgegeben.} 

var xMinl : integer; 
yMinl : integer; 

begin {Ack} 

if x=0 then Ack := y+1 
eise begin 
xMinl ;= x-1; 
if y=0 

then Ack := Ack (xMinl, 1) 
eise begin 
yMinl := y-1; 

Ack := Ack (xMinl, Ack (x, yMinl}); 
end; {y>0} 
end; {x>0} 
end; {Ack} 

Listing 6: Die Ackermann-Funktion in Assembier 

; Dieses Unterprogramm berechnet die Ackermann-Funktion A(x,y). Die 
; beiden Parameter x und y müssen auf dem Stack übergeben werden. Vor den 
: Parametern muß außerdem ein Long Platz für das Ergebnis gelassen werden. 


Ackermann : Ackermann-Funktion 


042A - 4E56 FFF8 


LINK 

A6,+-8 ; 

Platz für 2 Longs machen 


X 

EQU 

$C(A6) 

Adr.v, Parameter x 


y 

EQU 

8(A6) 

Adr.v. Parameter y 


xMinl 

EQU 

-4(A6) 

Adr.d. Variablen xMinl 


yMinl 

EQU 

-8(A6) 

Adr.d. Variablen yMinl 


Result EQU 

$10(A6) 

Adr.v. Ergebnis 

042E - 4AAE 000C 


TST.L 

X : 

Vgl. Parameter x mit 0 

0432 - 6E00 xxxx 


BGT 

xGT0 ; 

, Wenn x>0, Sprung 

0436 - 2D6E 0008 0010 

MOVE.L 

y,Result ; 

Ergebnis:= y 

043C - 52AE 0010 


ADDQ.L 

+1,Result : 

Ergebnis:= y+1 

0440 - 4EC0 xxxx 


BRA 

AckEnd ; 

, Sprung ans Ende 


xGT0 




0444 - 2D6E 000C 

FFFC 

MOVE.L 

X, xMinl ; 

xMinl:= x 

044A - 53AE FFFC 


SUBQ.L 

#1,xMinl j 

; xMinl:= x-1 

044E - 4AAE 0008 


TST.L 

y : 

1 Vgl. Parameter y mit 0 

0452 - 6E00 xxxx 


BGT 

yGT0 ; 

; Wenn y>0, Sprung 

0456 - 42A7 


CLR.L 

-(A7) 

; Platz für Ergebnis machen 

0458 - 2F2E FFFC 


MOVE.L 

xMinl,-(A7) i 

; 1.Parameter:= xMinl 

045C - 2F3C 0000 0001 

MOVE.L 

#1.-(A7) : 

; 2.Parameter:= 1 

0462 - 61C6 


BSR 

Ackermann ; 

: Berechne A(xMinl,1) 

0464 - 2D5F 0010 


MOVE.L 

(A7)+,Result i 

; Ergebnis;= A(xMinl,l) 

0468 - 4EC0 xxxx 


BRA 

AckEnd ; 

; Sprung ans Ende 


yGT0 




046C - 2D6E 0008 FFF8 

MOVE.L 

y,yMinl 

: yMinl:= y 

0472 - 53AE FFF8 


SUBQ.L 

#1,yMinl 

; yMinl;= y-1 

0476 - 42A7 


CLR.L 

-(A7) 

Platz für Ergebnis (außen) 

0478 - 2F2E FFFC 


MOVE.L 

xMinl,-(A7) 

1.Par.(außen):= xMinl 

047C - 42A7 


CLR.L 

~(A7) 

Platz für Ergebnis (innen) 

047E - 2F2E 000C 


MOVE.L 

X,-(A7) 

l.Par.(innen):= x 

0482 - 2F2E FFF8 


MOVE.L 

yMinl,-(A7) 

2.Par.(innen):= yMinl 

0486 - 61A2 


BSR 

Ackermann 

2.Par.(außen):= A{x,yMinl) 

0488 - 61A0 


BSR 

Ackermann 

A(xMinl), A(x,yMinl) 

048A - 2D5F 0010 


MOVE.L 

(A7)+,Result 

Ergebnis:= " " " " 


AckEnd 



048E - 4E5E 


UNLK 

A6 

r lokale Variablen löschen 

0490 - 205F 


MOVEA.L 

(A7)+,A0 

; A0:= Rücksprungadresse 

0492 - 508F 


ADDQ.L 

+8,A7 

; 8 Bytes Parameter löschen 

0494 - 4ED0 


JMP 

(A0) 

; Rücksprung aus Ackermann 
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Funktion korrekt arbeitet. Das vermittelt doch 
einen Einblick in die Leistungsfähigkeit des 16- 
Bit-Mikroprozessors MC 68000. In diesem Arti¬ 
kel konnten weitere interessante Eigenschaften 
dieses Prozessors leider nicht weiter erwähnt 
werden, da der Platz nicht zur Verfügung stand. 
Ich hoffe, daß ich Sie dennoch ein wenig für 
diesen Prozessor interessieren konnte. 



Abb. 11 

Zum Abschluß noch eine Bemerkung für die 
ganz kritischen Leser: Am Ende unseres Unter¬ 
programms haben wir die Rücksprungadresse 
vom Stack in das Register AO geladen, ohne AO 
zu retten. Das heißt, das Unterprogramm ändert 
den Inhalt von AO! Dies widerspricht zwar der 
Philosophie, alle Register unverändert zu belas¬ 
sen, stellt aber einen recht guten Kompromiß 
dar, da auf diese Art das Ende der Unterpro¬ 
gramme genauso leicht zu behandeln ist wie 
der Anfang der Unterprogramme. 


Listing 7: Test der Ackermann-Funktion 

; Mit diesem Unterprogramm kann die Ackermann-Funktion getestet werden, 

; Diese Funktion wird mit allen 15 Parameter-Paaren aufgerufen, deren 
; Summe nicht größer als 4 ist, also z.B. mit (1,0), (4,0), (2,2), aber 
; nicht mit (3,2), Die Ergebnisse werden mit dem Unterprogramm "Ausgabe" 

; in lesbarer Form auf dem Bildschirm ausgegeben. 

AckTest : Test der Ackermann-Fkt, 


0496 - 48E7 1E00 

MOVEM.L 

D3-D6,-(A7) 

; Register retten 

049A - 7600 

MOVEQ 

#0,D3 

; Parametersumme (D3);= 0 


NextD3 



049C - 7800 

MOVEQ 

+0.D4 

; Parameter x (D4):= 0 

049E - 2A03 

MOVE.L 

D3,D5 

; Parameter y (D5):= D3 


NextCall 



04A0 - 42A7 

CLR.L 

-(A7) 

; Platz f. Ergebnis machen 

04A2 - 2F04 

MOVE.L 

D4,-(A7) 

: Parameter x auf Stack 

04A4 - 2F05 

MOVE.L 

D5,-(A7) 

; Parameter y auf Stack 

04A6 - 6182 

BSR 

Ackermann 

; Berechne A (x,y) 

04A8 - 2C1F 

MOVE.L 

(A7)+,D6 

; D6:= A (x,y) 

04AA - 6100 FF18 

BSR 

Ausgabe 

: Ergebnis ausgeben 

04AE - 5284 

ADDQ.L 

#1,D4 

; Parameter x erhöhen 

04B0 - 5385 

SUBQ.L 

#1,D5 

; Parameter y erniedrigen 

04B2 - 6CEC 

BGE 

NextCall 

; Wenn y>=0, wiederholen 

04B4 - 5283 

ADDQ,L 

♦1,D3 

; Parametersumme erhöhen 

04B6 - 0C83 0000 

0004 CMPI.L 

+4.D3 

: Vgl. Parametersumme mit 

04BC - 6FDE 

BLE 

NextD3 

; Wenn Param,sum.<=4, wdh. 

04BE - 4CDF 0078 

MOVEM.L 

(A7)+,D3-D6 

; Register wiederholen 

04C2 - 4E75 

RTS 


; Rücksprung aus AckTest 


Tabelle 1: Übersicht über die Adressierungsarten des 68000 


-|- 

1 Bezeichnung 

1 

d 

--1 

Code 

M 1 R 

1- 

Schreib¬ 

weise 

+ - 

-| Beispiel 

1 

-i 

-1- 

Ergebnis | 

1 

1— 

Effektive 

Adresse 

-+ 

1 

1 

-+ 

1 Datenregister direkt 


0001 n 

1 Dn 

IMOVE.W D0,D3 


D3 

= FEDCFFFAl 

... 

Register D0 

1 

-+ 

H — " 

1 Adressregister direkt 


0011 n 

An 

|M0VE,W A6,D3 


D3 

= FEDCA700I 

Register A6 

1 

T-- 

(Adressregister indirekt 

002 1 n 

(An) 

iMOVE.W (A6),D3 


D3 

= FEDC1122I 

07A700 

1 

+— H 

1 Adressregister indirekt 
|mit Postinkrement 

003 1 n 

(An) + 

IMOVE.W (A6)-t-,D3 

1 


D3 

A6 

= FEDC1122| 

= 0007A702i 
1— 

07A700 

1 

1 

1 Adressregister indirekt 
|mit Predekrement 

0041 n 

-(An) 

[MOVE.W -(A6),D3 

1 


A6 

D3 

= 0007A6FE| 

= FEDCFEFFl 
1— 

07A700-2 
= 07A6FE 

1 

1 

1 Adressregister indirekt 
(mit Verschiebung 

0051 n 

j 

d(An) 

IMOVE.W 4(A6),D3 

1 


D3 

= FEDC55661 

1 

1— 

07A700+4 
= 07A704 

1 

1 

— 1- 

1 Adressregister indirekt 
|mit Index 

006 1 n 

1 

d(An,Rx] 

1iMOVE.W 2(A6,D0.W},D3 

1 


D3 

= FEDCFCFDl 

1 

\— 

07A700+(-6)+2 
= 07A6FC 

1 

1 

-+ 

lAbsolut kurze Adresse 


007 000 

XXX 

IMOVE.W $4000,03 


D3 

= FEDC0102I 

004000 

1 

—1- 

[Absolute Doppelwort- 
1 Adresse 

J 

0071001 

1 

L J_ 

xxxxx 

IMOVE.W $07A6F8,D3 

1 


D3 

= FEDCF8F9| 

1 

07A6FS 

1 

1 

— ■■ --- n 

Programmzaehler mit 
Verschiebung (relativ) 

r —— T--- -• 

0071002 

1 

d(PC) 

[MOVE.W $6702(PC),D3 

1 


D3 

= FEDC3344I 

1 

074000+6702 
= 07A702 

1 

1 

+ 

1Programmzaehler mit 

1 Index 

10071003 
! 1 

d(PC,Rx)IMOVE.W $A{PC,D0.L),D3 

1 

D3 

= FEDC05061074000+(-070006) 
l+A = 004004 

1 

l| 

1 

-1- 

H — 

iDirekte Daten 

1 Index 


10071004 

1 1 

#xxx 

IMOVE W #$AFFE,D3 

1 


D3 

= FEDCAFFEIErweiterungswort 1 

I AFFE i 

-|- 


1— H— 





L 



+ ■■■■■■■ ■■■■ .. -- 

[Statusregister 

1 

H - 


h'' ' . 

10071004 

1 1 
] -H- 

SR/CCR 

lORI.B ♦%0(ail0000,CCR |CCR=%00110000| 

1 1 1 

- - 4-1- 

untere Haelfte 
von SR (= CCR) 

1 

1 


Als Ausgangspunkt sei folgende Situation 
angenommen: 


Register : 

D0 = FFF9FFFA (= -070006) 
D3 = FEDCBA98 
A6 = 0007A700 


PC = 00074000 
CCR = %0000000 
(alle Flags auf 0) 


Speicher ; 


ab 

Adresse 

004000 : 

: 01 

02 

03 

04 

05 

06 

07 08 

ab 

Adresse 

07A6F8 : 

: F8 

F9 

FA 

FB 

FC 

FD 

FE 

FF 

ab 

Adresse 

07A700 : 

: 11 

22 

33 

44 

55 

66 

77 

88 
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Tabelle 2; Befehle des 68000 


+- 

1 

Beschreibung | 

|Mnem. 

Englisch 

Deutsch 1 

1 + 

|ABCD 

|Add DsGimal with Extend 

1 Addiere dezimal mit X-Flag | 

Iadd 

lAdd 

1 Addiere binaer | 

lAND 

1 Logical And 

1 Logisches UND | 

1 ASL 

lArithmetic Shift Left 

1 Arithmetisches Schieben Links | 

|ASR 

lArithmetic Shift Right 

1 Arithmetisches Schieben Rechts] 

-1 

1 Bgg 

iBranch Conditionally 

jBedlngte Verzweigung | 

iBCHG 

iBit Test and Change 

|Bit pruefen und aendern 1 

Ibclr 

iBit Test and Clear 

iBit pruefen und auf 0 setzen | 

Ibra 

[Branch Always 

1 Unbedingte Verzweigung | 

iBSET 

IBit Test and Set 

|Bit pruefen und auf 1 setzen | 

IBTST 

jßit Test 

jßit pruefen | 

j —1- 

H— 

|CHK 

ICheck Register Against Bounds|Pruefe Register auf Grenzen 1 

jcLR 

1Clear Operand 

1 Operanden auf 0 setzen | 

[CMP 

1Compare 

jVergleiche | 

1 + 

1 DBcc 

iTest Condition. Decrement 

and]Bedingung pruefen, Register | 

1 

1Branch 

1 erniedrigen und Verzweigung \ 

|DIVS 

ISigned Divide 

[Division mit Vorzeichen 1 

IDIVU 

jUnsigned Devide 

1 Division ohne Vorzeichen | 

^ —[. 

H— 

|E0R 

-)- 

iLogical Exclusive Or 

1 Logisches Exklusiv-ODER | 

Iexg 

1 Exchange Registers 

1 Registerinhalte vertauschen ] 

lEXT 

ISign Extend 

jVorzeichenerweiterung | 

-[- — 

1 JMP 

-H- 

1 Jump 

[Sprung 1 

1 JSR 

(Jump to Subroutine 

1Unterprogramraaufruf | 

-1 —1- 

|LEA 

]Load Effective Address 

|Lade die Effektive Adresse 

|LINK 

jcink and Allocate 

[Platz auf Stack reservieren | 

ILSL 

iLogical Shift Left 

jLogisches Schieben Links j 

ILSR 

iLogical Shift Right 

]Logisches Schieben Rechts [ 

J 

j----—- 

_ 4 _ _—----+ 


1 

1Mnem. 

Beschreibung 

Englisch 

I 

Deutsch I 

-+ 

H--1— 

jMOVE iMove Data 
iMOVEMjMove Multiple Registers 
jMOVEPlMove Peripheral Data 
iMULS [Slgned Multiply 
[MULU junsigned Multiply 

[Daten transportieren [ 
[Transportiere mehrere Register] 
[Transport. Daten d. Peripherie] 
jMultiplikation mit Vorzeichen [ 
(Multiplikation ohne Vorzeichen] 
-I— 

-1-1- 

INBCD iNegate Decimal with Extend 

|NEG iNegate 

[NOP Ino Operation 

[NOT 1 One's Complement 

[Negiere dezimal mit X-Flag ] 

jNegiere binaer | 

[Keine Operation [ 

j1-er Komplement [ 

^ _ -+ 

-1-1---- 

jOR ILogical Or 

[Logisches ODER I 

^ - }. 

-4 ———---— 

|PEA iPüsh EffectIva Address 

lEffektiv« Adraaaa auf Stnak | 

■1 _..._____—-f 

1 RESET] 

Irol ] 

ROR 1 
ROXL 
HOXR 
RTE 
IRTR 
IRTS 

Rssat External Davlcas 
jRötate La ft ürithout Extsiid 
Rotatc Right wlthout Extend 
Rotatü Left with Extend 
Ratet« Right with Extend 
Return from ExoepLlon 

Return and Rektor« 

Return front Subroutine 

iNorndaran exlBrnar Einhalten | 

1 Rotieren Unka ohne X-Flag 1 
[Rotieren Rochta ehna X-Flag | 
[Rotieren Links mit X-Flng | 
jRotieren Rechta mit X-Flag j 
[Ruecksprung v. Auanahtnaroutlnel 
iRuocksprg. u, Flags ruechlBdeoj 
jRuacksprmrig vom Unterprogramm I 

- r -- 

|SBCD iSuhtraot Deoimal u^ith SKtond 
]Scc [Set Conditional 
jsTOP IStop 
jsUB [Subtract 

jsWAP jswap Data Register Halves 

|._____—— 

1 Subtrahiere dezimal mit X-Flag[ 

[Bedingtes Setzen des Operanden! 

1 Statusreg. laden und anhalten j 

1 Subtraktion 1 

[Vertausche Registerhaelften [ 

4- 

-l-]- 

[TAS [Test and Set 

ITRAP [Trap 

[TRAPvjTrap on Overflow 
[TST [Test 

[Pruefe und setze Operanden 
junterbrechung ("Falle"} 
[Unterbrechung bei Ueberlauf 
[Pruefe Operanden 

+- 

|UNLK 

H- 

1- 

[Unlink 

t- 

[Platz auf Stack freigeben [ 

-h 


Tabelle 3: Befehlsvariationen beim 68000 Kurzrezension Assembler-BÜCher 


-t- 

[Befehlstyp 

- --+ 

Beschreibung | 

I und 

Variation 

Englisch 

.4- 

Deutsch 1 

--- -- - -*-- - h 

[ADD 

ADD 

H- 

[Add 

[Addition (binaer) [ 


ADDA 

[Add Address 

[Addiere Adresse j 


ADDQ 

jAdd Quick 

[Addiere schnell (und direkt) [ 


ADDI 

[Add Immediate 

1 

Addiere direkte Daten [ 


ADDX 

[Add with Extend 

[ 

J- 

Addiere mit X-Flag j 

-+ 

[AND 

AND 

— 1 - 

[Logical AND 

[Logisches UND ] 


ANDI 

[Logical AND Immediate 

[Logisches UND, direkte Daten | 
_ + 

[CMP 

CMP 

- 1 - 

1Compare 

1 Vergleich | 


CMPA 

1Compare Address 

jVergleiche Adresse | 


CMPM 

[Compare Memory 

[Vergleiche im Speicher [ 


CMPI 

1Compare Immediate 

jVergleich mit direkten Daten | 
- + 

[EOR 

EOR 

[Logical Exclusive OR 

[Logisches Exklusiv-ODER j 


EORI 

[Exclusive-OR Immediate[Logisches Ex.-ODER, dir. Daten] 

k _j _ ____— 4- 

^- 

IltDVE 

MOVE 

-T* ■ - 

|Movo Data 

jtrBtisporllflr« Datsn 1 


MOVEA 

iMovo Address 

[fransportiarc Adrossa ] 


MOVEQ 

lUovo Quick 

[transportlero schnall & direktj 


MO VE froin SRlMovs from Stutusreg. 

[Transport, vom Statusregister 


MOVE ta SR 

Movo to Statusregister[Transport, zum StatueregIsLer [ 


MOVE to OCR Move to ConditioncodealTransportioro au den Flags | 


MDVE USP 

[Hovo User Stackpointer iTransp. Artwender-Stapelzeiger [ 

1 _ U---h 

H-- 

|WE0 

RES 

[ Regato 


Negaticn [blnaor] j 


RESX 

jRsgate with Extend 


Hagiera mit X-Flag j 




— ^ 


+- 


- r 



[OR 

OR 

[Logical OR 

[Logisches ODER [ 


ORI 

[Logical OR Immediate 

[Logisches ODER, direkte Daten j 

|SUB 

SUB 

[Subtract 


[Subtraktion (binaer) | 


SUBA 

[Subtract Address 


[Subtrahiere Adresse j 


SUBQ 

[Subtract Quick 


[Subtrahiere schnell & direkt | 


SUBI 

[ Subtract Immediate 


jsubtrahiere direkte Daten | 

j _ 

SUBX 

1 Subtract with Extend 
— 1- 


[Subtrahiere mit X-Flag | 

1---^ 


In der Peeker-Redaktion sind drei Assembler-Bücher eingegan¬ 
gen, die hier kurz besprochen werden sollen: 

(1) T. King und B. Knight: Programmierung des I\/I68000, 1986 
(Verlagsort fehlt im Copyright-Vermerk und auf dem Umschlag), 
201 S., kart. 

Bemerkungen: Leichtverständliche, kurzgefaßte, aber unvollstän¬ 
dige Einführung. Als „Schnupperkurs" für Anhänger höherer Pro¬ 
grammiersprachen geeignet. Skurrile Besonderheiten: Hex-Bytes 
existieren für die Autoren nicht. Was ein Opcode ist, wird nicht ein¬ 
mal exemplarisch gezeigt. Eine bildliche Darstellung der Daten- 
und Adreßregister wird man ebenfalls vergeblich suchen. 

(2) C. Vieillefond: Programmierung des 68000, Düsseldorf 
1985, 453 S., kart. 

Bemerkungen: Sehr umfangreiche und vorzüglich übersetzte Ge¬ 
samtdarstellung unter besonderer Berücksichtigung hardware¬ 
technischer Belange (Peripheriebausteine, Signale, Datenbus 
usw.). Die Programmierung selbst kommt dabei allerdings etwas 
zu kurz, so daß der Buchtitel insoweit irreführend ist. Daher mehr 
für Hardware-Leute empfehlenswert. 

(3) G. Kane, D. Hawkins und L. Leventhal: 68000 
Assembly Language Programming, Berkeley 1981, ca. 500 S., 

kart. 

Bemerkungen: Obwohl bereits 1981 erstmals erschienen, ist die¬ 
ses Buch wahrscheinlich die beste Einführung für Programmierer, 
denn es wird nicht nur jeder Befehl anhand vorzüglicher Diagram¬ 
me erklärt, sondern auch durch kleine Beispielprogramme einge¬ 
übt (Abschnitte: Anfängerprogramme; Einfache Schleifen; Codie¬ 
rung und Konvertierung, Arithmetische Programme, Listenverar¬ 
beitung usw.). 
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Tabelle 4; Opcodes und Taktzyklen aller 68000-Befehle 
Teil 1: Befehle mit variabier „Effektiver Adresse“ 


Asaembler-Syntax |Flags]s| 

& Operations- | j | Dn | An 

beschreibunglXNZVCj \ Code :Cyj Code 




Effektive Adresse (ea) 

I (An) I (An}+ | -(An) | d(An) |d{An,Rx) | xx.W | xxxx.L | d(PC) |d{PC,Rx) | +xxx 

:Cyi Code :Cyl Code :Cy[ Code :Cy| Code :Cy| Code :Cyl Code :Cyj Code ;Cyj Code iCyl Code :Cy| Code 


Cy 


CCR/SR I 
Code :Cy j 


ADD.s ea.Dm [***♦*|B|15m00n: 

{Dia)+{ea)->Dmi iwil5ml0n: 

I lLil5iii20n; 

ADD.s Dm.ea |#****|B| - 

(ea)+(Dm)->eai jw| - 

I |L| — 

ADDA.s ea.Am |-[B]- 

(Ani) + (ea}->Amj |ff|15iii30n; 

I |Ljl5m70n: 

ADDI.s #xxx,ea ]**♦**|B[00300n 

(ea)+xxx->ea| |ff|00310n; 

I |L|00320n: 

ADDQ.s *x,ea !♦#*»*]B|05x00n 

{ea}+x->ea| |w|05xl0n; 

I iL|05x20n; 


4| — 

4|l5rallti; 
8il5m21n: 

I — 

I -- 

I — 

8|l5m31n: 

8|l5m71n: 

8 | - 

8 | — 
16 [ — 
41 — 

4|05xlln: 
8i05x21n: 


I15m02n: 
4|l5ml2n; 
8I15m22n; 
I15m42n: 
115m52n: 
|l5m62n: 
I ___ 
8ll5ni32n; 
8|l5m72n: 
|00302n: 
|00312n; 
|00322n: 
|05x02n 
8|05xl2n: 
8I05x22n; 


8 I15m03n; 
S|l5ml3n; 
14il5in23n; 
12I15m43n; 
12jl5ni53n: 
20|l5m63n: 

I — 

12I15m33n 
14|15ni73n; 
16|00303n 
161003130: 
28|00323n; 
12|05x03n 
12i05xl3n 
20105 x 230 : 


8 I15m04n: 
8il5inl4n: 
14|l5ni24n: 
12|l5m44n: 
12il5[n54n; 
20ll5m64n: 

I 

12|l5iii34n 

14il5in74n: 

16|00304n 

16|00314n 

281003240: 

12|05x04n: 

12105 x 140 

20|05x24n: 

- 


10jl5m05n: 
10 115nil5n 
16il5m25n: 
14il5ni45n: 
14jl5m55n: 
22|l5iD65n: 

I — 

14|15m35n 
16 115ni75n: 
18I00305n 
181003150 
301003250: 
14 105 x 050 
14105 x 150 
22105 x 250 


12|l5in06n: 
12il5ml6n: 
18il5m26n: 
16 115in46n: 
16il5m56n: 
24|l5m66n; 

I — 

16|l5ni36n 

18|l5ra76n: 

201003060 

201003160 

321003260: 

16|05x06n 

16105x160: 

24 ( 05 x 260 


14|15ia070: 
14|l5nil70; 
20i15m270: 
18 115m470: 
18il5m570: 
26I15m670: 

I — 

18jl5m370 
20|l5in770: 
22I003070 
22I003170 
34(003270: 
18I05x070 
18105x170 
26105x270 


I2ll5m071 
12il5ml71 
18|l5m271: 
16I15ra471: 
16il5m571 
24I15m671; 

I ___ 
16I15m371 
18|l5m771 
; 201003071 
201003171 
321003271 
16105x071 
16105x171 
24105x271 


16]15m072 
16 15nil72 
22|l5m272 

201 - 

20 ( - 

28 1 

20ll5in372 

22il5m772 

24 - 

24 [ — 

361 — 

20| — 

20 - 

28 - 


12|l5m073:14|l5m074; 

12il5ml73:14|l5ml74: 

18|l5m273:20il5m274' 

I — I — 

I ___ I ___ 

1 — 1 — 

16ll5ni373:18|15m374: 
18|15ni773:20 15iii774: 


— I 


AND s ea,Dm j-^(*00 [B114m00n; 4| - |l4m02n: 8|l4m03n: 8114m04n: 10114in05n: 12 114in06n: 14 ] 14in070:12 114m071; 16114in072; 12114ffl073:14 ] 14m074 

(Diii)&(ea)->Dnii iffil4ml0n: 41 - il4inl2n; 8il4nil3ni 8114inl4n: 10 ] 14inl5n: 12 j 14iiil6n: 14 j 14ml70:12 j 14nil71; 16114ml72:12 j 14nil73:14114nil74: 

I |Lil4in20n: sj —► j 14m22n: 14l 14in23n: 14114ni24n; 16114ni25n: 18114m26n:20[ 14ni270; 18114m271:22 114ni272; 18114m273:20 114m274: 

AND.s Dm.ea |-*«00iB|-1 - 114in42n; 12 114m43n; 12 114m44n: 14 j 14in45n: 16 j 14m46n: 18 j 14ni470:16114m471:201 - \ - j- 

(ea)i(Dm}->ea 1 jff 1-| -- 114m52n: 12 j 14ni53n: 12 [ 14in54n: 14114ra55n: 16 j 14in56n: 18 ] 14m570:16 114ni571: 201 - |-| - 

I |Ll - 1 - il4m62ni20il4in63n:20|l4Di64n:22|l4m65n;24|l4ni66n:26|l4m670:24|14in671:28l - | - | -* 

ANDI,s *xxx,ea j-**00|B[00100n: 8 | -- 1 00102 n: 16 1 001030 : 16 j 00104 n: 18 1 001050 :20100106n; 22 1001070:201001071:241 - | - f - 

(ea)&xxx->ea| |ff|00110n; sl - |00112n;16j00113n:16|001140:181001150:20|00116n;22[001170:201001171:24| - | - 1 — 

I jLI001200:16| ^ |00122n:281001230:281001240:301001250:321001260:341001270:321001271:361 - | - j - 

-»- 


— I 

— I 

001074:201 

001174:201 


-+- 

181160750 

1 

181160350 
1 — 


ASLr 6ä 


1*##»*lB| 

X/C<=(ea)<=0i Iwj 

um 1 Bit I |l1 

ASR ea 

(ea)[F]=>(ea)=>X/C! lff| 

um 1 Bit 1 iLl 

4- 


I — 

1160720: 

I — 

1 — 

1160320: 
1 — 


j 

161160730: 

1 ___ 

I 

161160330: 


1 — 
16I160740: 
! — 

! — 

161160340: 

I — 


I 


1 — 1 — 

201160760:221160770;201160771: 

I “ I ___ I 

201160360:22|160370:201160371 

I — I — I — 


24| - 


I “ 


I 


I 

— 1 


BCHG Dm.ea [- 

-(ea)[(Dm)]->Z| 
-(ea)[(Dm)]->ea[(Dm)]( 
BCHG+x,ea j- 

-( 6 a)[x]->Z/ea[x]l 

I 

BCLR Dm.ea j- 

-{ea)[{Dm)]->Zl 
0->ea[(DiD)] 1 
BCLR #x,ea |- 

-(ea)[x]->Z,0->ea[x]1 

I 

BSET Dm,ea 1- 

-(ea)[(Dm)]->Zl 
l->ea[(Dm)]1 
ET #x,ea [- 

(ea)[x]“>Z,l->ea[x]j 

I 

BTST Dm.ea |- 

-(ea}[{Dm)]->Zl 

I 

BTST *x.ea |- 

-{ea)[x]->Zl 

i 


■*-|B[ - 

iffl- 

lLl00m50n 

■*-lBl - 

lff| — 
lLl00410n: 
-♦-IBI — 

Iffl - 

1 L 100 m 60 n 
■*-lBl 

|ff| - 

|l|004200: 

.*~1B1 — 

|Wl - 

[L|00m70n 
.*-lB| — 

Iffl - 

1L1004300 
-*-lB| — 

Iffl- 

IL|00m40n 
-*-|B| — 

|ff| — 
|L1004000 

- 


I — t004iaii;ie- 
1 — 

121 — 

! — 

I — 

101 - 

- I — 

1 ___ 


00ta^2n! 12100b53n: iS 100*54 n: L4100m55o: | 0:181 ejhiETÖ: 16 

004 13 ft 11 $ 1 00414n :18 1004150:20 F 004 160 ;ZU {0«4l70t 20 


14 1 


I -- 

I ___ 


121 


6 | - 

I — 
I — 
: 10 | - 




00*63 0 : 12 ! e0H64lii i 14 |fl0BS5o ^ 16 [ 00m66n: IS 1 00^670:16 


004230; 
00m73n: 


! — 
004260: 


ß0A;67l:20l - ] “ | “ 

I 
I 

004171:241 - 1 


000671:201 




00m72n:12 

I — I 

I — I — 

004320:161004330: 
00m42n: 8|00m43n: 

0040201121004030 


12|00m74n: 

I — 

I 


14I00m75n 

I — 
I — 

181004350 


161004340: 

I — 

I — 

8 I00m44n:10|00m45n 
I ___ ■ 

Ul 004 040: 

I — 

I — 


I 

I — 

14|0040$ta: 


I — I — J 

20 [004260122 j 004270 r 20 tdN271:241- 

16100m76n:18100m770:16100m771:201 ^ 

20I004360:22|004370;201004371;24 — 

12100m46n;14!00m470:12|00m471:16 00m472!U 

1 sl004060: Ul004070: uj 004071:20 004072^18 

l — l — l — 

I — I — I — 


— I 


I — 


0flni473: 

004073: 


14 00m474; 

I — 

181 

I 

I 


— I - I 

= 1 = 1 


|CHK ea.Dm |-»UUU|Bl - | - 

1 ffeon (Dm)<0 oderj j ff j 04m60o: 40 j —- 

1 (Dm)>{ea), daoo Trapj iLl - sj - 

1 -- 


1 — 

I04m62o: 

I — 


I — 

:44|04m63n: 

12 | - 

-+- 

: 121041030: 
12|04113o: 
201041230: 
-♦- 


I — 

44I04m64n 
12 | - 


I — 

46|04m65o: 
14|- 


I — 

48I04m66n 
16|- 

4- 


I — 

50I04m670 
18| - 

- \ - 


I ___ 
48I04m671 
161 - 


I — 

52I04m672: 
201 - 


I — 

48I04m673 
16| - 


I — I 

50|04m673:44| 
181 - 12 1 


— 1 


|CLR.s ea 

1 

1 


1-0100|B1041000: 
0->ea| |W| 041100 : 

1 jL|04120n: 


4| 

4| — 

6 | — 


1041020 

1041120 

1041220 


121041040 
121041140 
201041240 


14l04105n: 
141041150: 
221041250: 


161041060: 
16 1041160: 
241041260: 


18I041070 
181041170: 
261041270; 


161041071 

161041171 

241041271 

^- 


201 - 

201 - 

281 


— I 


I 


-P- 


jCMP.s ea.Dm |-****|B|13m00n: 4| - |13m02n 

1 Test von (Dm)-(ea)| iw|l3ml0n: 4jl3mlln: 4jl3ml2n 

1 I lL|l3m20n: 6|l3m21n: 6|l3m22n: 

ICMPA.s ea.Am |-»*«»|B|-| - | 

1 Test von {Am)-{ea)i jff|l3m30n: 6|l3m31n: 6|13m32n 

1 I |L|l3m70n: 6|l3m71n: 6|13m72n 

ICMPI.s +xxx, 0 a |-****|B 1006000 : 8 l - |006020 

1 Test von (ea)-xxxi lff|00610n; 8 | - |00612n 

I I |L|00620n:l4| - |00622n 

- 1 - 1 -+--4- 


8|13m03n: 

8|l3ml3n: 

14|l3m23n: 

I — 

10113m33n: 
14I13m73n: 
121006030: 
12I006130: 
20I006230: 


8 I13m04n: 
8|13ml4n: 
14ll3m24n: 

I — 

10|l3m34n: 
14il3m74n: 
121006040 
121006140: 
20I006240: 


10|13m05n: 

10jl3ral5n: 

16|l3ffl25n: 

I — 

12 113m35n 
16 113m75n: 
141006050 
14I006150: 
22I006250: 
- ¥< 


12ll3m06n: 
12ll3ml6n: 
18I13m26n: 

i — 

14|13m36n: 
18|l3m76n: 
161006060 
161006160 : 
24I 006260 : 


14I13m070: 
14il3ml70: 
20I13m270: 

I __ 
16|l3m370: 
20|13m770: 
181006070 
18I006170: 
26!006270: 


12ll3m071 

12il3ml71 

18|13m271 

I 


14|l3m371 
18|13m771 
161006071 
161006171 
24I006271 


:16ll3m072: 
:16il3ml72: 
22I13m272; 
1 


:18ll3m372: 
22|13m772: 

:20l 

: 20 | - 

28 I 


12113in073: 
12II3ml73: 
18113m273: 

I — 

14I13m373: 
18I13m773: 

I — 

I — 

l — 

4- 


14ll3m074: 8 | 
14il3ml74; 8\ 
20|l3m274;14| 

1 — I 

16|l3m374:10| 

20|l3m774:14| 

I — I 

I — 1 

I — I 

---h- 


|DIV5 

Dm «».DB 

j iDa)/(D(k)'->D*l 

I 


V 
It 
6 

ff 10B]30n 

ILl 




I — I — * 

11: 6S h : 6S110mT4)i: 


I — 

64|Utt7Bn:< 


I 


I — 

::66|l0m773 
I __ 


— I 




44 J :441 :4i| ip*5Sn ; 4B| IpoJSil 

I — I “ I — E — 


I — I — I 

: 6 a 110m770: 66 110ra771:70110m772 

I — I — 1 

[ ^ I — I - I 

:$0 i 10*37^:411:0*571; bZ j ^01*37^:48 1 UhSVS: 

I — I — I — I — 

-!- i --4- 


I — I 

68|l0m773;62| 

1 — 1 

00|U*373:*4 


j («al EDR il[l3v50n 

j iLliSseipn 

E0Rl.D4xxx.aa |-+B#0;]a|P0500n 

{Da) EOR |ff|f)0510n 

’l |L|mE 0 n 


4| 

4\ 

aj 

aj 

B| 

16 t 


] 13jii4Sn: 
jl3tt5Zn: 
!Uit62Ti; 

005 Uh 


:U|i3iii43n:U|13p44b: 

I2jl5Bi53n:UjU(is54ti 

20jUis63ii:S0Fl3iP64h: 

;16|00503[i:16|00504n. 

:l6|60SURU6|00514n 

28|00023n:£8jß05Z4n 


;UU3b4So, 
UlUoBEn; 
22|13fii65ni 
13|00565n 
i8j005l5ä: 
3010052511: 


16|U*46o: 

UlUlsSSn: 

Z4|13me6n: 


U] 130470; 
uj:3B570: 
:Z6ll3n67a: 
;£Z [005070 
221005170: 
341005270: 


U]Us47l 
16! 13x571 
K4|i3b671 
201005071 
201005171 
32 1005271 


20 
201 
23! 
241 
24l 
36 1 


I — 

I 


I — I 


I — 


— I — I — 


— I 


I — I 


1005074:20 

1005174:20 


-1 -^ 

|JMP ea 

1 aa->)*C 

h-HH 

1 1 

— ~| 

1 

} -♦-^- 

1 - |04732n: 8 | - l — 

1111 

t t- 4 .) t---4---—--'* 

1047350:10104736n;14|047370:10|047371;12|047372:10|047373:14| -— 

1 1 1 1 1 1 1 

— 1 

jj$R ea 1 

1 (PC>-»-(SP|,#a->PC 

1 1 

" 1 

1 - 1047220:161-| - 

1 1 I 1 

1047250:18104726n:221047270;181047271:201047272:181047273:22 | - 

1 1 1 1 1 1 1 
._+- 1 ----4----^^-- 1 



LEA ea.Am 


[- 

ea->Am| 

I 

-— 


-|B| 

|ff| 

|L| 

-*-l- 


I — l~l — |~i — I — 1 — j — i — 

I — I — i — i — ( — 1 — 1 — 1 — 1 — 

|04«72n: 4| 1 —- [#*»75(1; 8l(4l76[>: 1*1(41^7#: B)!!4«771; lIlMaTTZ- BUMlfWI: IS 
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verkauf Hardware 


Macintosh 128 auf 512KB 

DM 299,-. Fa. Schlösser, Tel. ab 
17.00 Uhr, 089-9858 89 

Komplett; 11+ komp-, 2 Lauf¬ 
werke abges. dt. Preh Tastatur, 
64K, Grafikphnter u. Seriellinterf., 
Z80, 80 Z, im Metallgehäuse, Mo¬ 
nitor, viel Dokumentation, DM 
2000,- ab 18 h, T. (0 89) 3 2011 00 

Ile, 80Z + 64K, Matrixdr. 
80Z/Sek. grafikfäh., Juki 6100 
Typenrad 20 Z/Sek. + 2. Disc- 
laufw./Monitor Textverarb. progr. 
VB DM 2500,-. Tel. 07021759462. 

11+ Comp. 64K+Z80+16K 
AKKU-RAM+ Super serielle + 
Centronix + Eprom-Burner + 
Laufwerk/Controller Grün Moni¬ 
tor; Olivetti-Drucker; 100 Disket¬ 
ten + Literatur - komplett DM 
1700,-oder einz. T. 04531 784718 

AP-35 Grafikkarte mit 
Handb. + Software DM 450,-. 
Tel. 0208/407906 

lle-komp., 80 Z + 64K, Z80, 
640K-LW, Erphi-Contr. Monitor, 
zus. DM 1500,-11 + 80ZDM 100,- 
16K. Tel. 08978507834. 

Apple Ile (128K), Z80, 80Z, 
Lüfter, 2 x Laufwerke, Par. Inter¬ 
face, UL + Software, VB DM 
2300,-. Tel. 023 25/410 69. 

Apple II + kompat, 2XTEAC 
Sliml. Disk Shugart/Ehringcon- 
troller, 80Z/Softswitch, Z80, abge¬ 
setzte Preh-Kommander/Zahlen- 
block, bernstein Monitor, Grappier 
Card, Cosmos 80 Drucker, div. 
SW, DM 2500,-VHS. 

Tel. 04346/6647. 

Z-80 Microsoft-Premium- 
card incl. 80Z für Ile DM 700,-. 
6522 PlO-Card DM 110,-. Super- 
Serial-Card DM 160,-. Orig. Apple 
Controller DM 100,-. 

Tel.071 61 /791 17ab 18.00 Uhr. 

Apple llc, Monitor, Stand, 

Joyst., RefMan. LIt., Software, Ga¬ 
rantie, VB 2000,-. Imagewriter II + 
Garantie DM 1800,-. 

Mahr (0711) 31942 55. 

Apple 11+ comp 64K 80Z + 

Z80A-Karte TEAC-L 35-40-80 TR 
640KB Erphicon. IBM Geh. + Tast¬ 
atur ZenIth-Monitor - bernstein 
VHB 1600,-. 

Telefon 05201 /31 29 


Netzteil 12V/2, 5A für Apple 

II, VB DM 150,-. 

Tel. 02237/61764. 

UNIDISK 3,5 mit UniDOS 3 3 

(neu), Z-RAM (512 K) für llc (neu) 
jeweils DM 1200,-. 

Tel. 071 56/27451. 

Appie-Profile 5MB/1985 neu¬ 
wertig mit Controller VB: DM 2900,- 
Loth. Bauer, T. 0 6525/491. 

Appie Ile orig. geg. Gebot zu 

verkaufen. Tel. 0212/57235. 


Orig. US-Apple tie, inkl. Trafo. 
Monitor, 2 Disk II, 80Z, Par.-Karte, 
viel Lit., sehr viel Softw. VB DM 
2700,-. Tel. 0651 /1 7925. 

Softcard Ile (64K, CP/M, 
80Z) DM 600,- Apple Ile Extend- 
ed 80 Zeichen Karte DM 250,- 
A. Grün, Tel. 021 51 /3021 77. 

Apple II m. Monitor v. Fiop- 

py, 10MB Profile, Apple-DMP-Ma- 
trix-Drucker 8 Mhz Z80 (AP22). 
Kompl. DM 4500,- auch elnzel zu 
verk. Tel. ab 19 h (0 2507) 1490. 

Orig. DTACK-512K wie 
Peeker 6/86. 

M. Ries, Salvianstr. 2, Trier. 

AP 2 (200,-), AP 13B (150,-) 

von IBS für Apple II. 

Tel. 04731 752 68. 


Gibson Light PEN für Apple 
Ile, Preis VB. T. 0711 / 456 03 20. 

Ile komp. IBM-Geh. ext. Ta¬ 
statur, 128K. Monit. Z80, Palk., 
Grappler+, orig. Apple-Il-Disk u. 
Controller, DM 1500,-. 

Tel. 0531 /633 66. 

Original Apple-Produkte 12 % 
unter Listenpreis; Apple llc + 
Monitor + Mo.-Stand DM 1810,- 
(incl. MwSt.) Liste bei Datent. 
Schoeben, Bahnhofstr. 12, 8900 
Augsburg, Tel.: 0821 /152377. 

Appie il+ komp., 64KB, Mo¬ 
nitor, 80Z., Z80, Operator II- 
Tast., div. Handb. u. SW, Drucker 
NEC P2, VB DM 4500,-. 

Tel. 0661 762644 ab 18.00 Uhr. 

Brother CE60 + Interface 
IF50 umschaltbar RS232C-Cen- 
tronics anschlußfertig für llc mit 
Kabel. 

Klamser, Kreitzstr. 4, 6200 Wies¬ 
baden (auch im Raum Goslar). 

Apple komp. Computer, Peri¬ 
pherie. Gelsen-Electr. K-Schuma- 
cher-Str. 124, 4650 Gelsenkirchen, 
Tel. 0209/83033. 


Lehrer verk. wegen Syst.w. 

in der Schule sein. priv. Apple Ile 
128K + SOZeich + Sup + Ser. Card 
-I- Duo Disk + Ile Mon. Imagewr. 
12" + Mouse + alle Manuals Lit. für 
DM 400,- + AppleWorks dt/engl + 
ProDOS + Mous Paint + priv. 
Buchhalt. Neupr. DM 10800. 18 
Mon. alt DM 6500,-. 

Tel. 06074/27696. 

Ile, 80Z + 64K, Z80, Super 
Serial, Disk-Contr., 2 Laufwerke, 
Monitor, VB DM 2500,-. 

Tel. 061 06/2 3583. 

Apple 11+ (orig.) in Metaii- 
geh., 2 Laufw. (orig.), prof. Tasta¬ 
tur, Monitor, Einsteckkarten, viel 
Softw. + Literatur, DM 1 700,-. 
Bauer, Tel. 071 21 /40518. 

ITOH 8500, ITOGRAPH-IF, 

Manuais, NP: 1600,-, VB: 650,-. 
Tel. (0209) 23023. 

Verkaufe Apple llc für DM 
1350,-. 

Tel. 069/359600, ab 18.00 Uhr. 

IBS Ramdisk 256 KB, mit 
Software und Dokumentation, 
Preis VS, Tel. 021 02/473750. 


Verkauf Software 


Software Uhr für Apple 11 +, e, 

c, Zeitschaltmöglichkeit Diskette + 
Anleitung DM 25,- Oecking 
Tel: Do. 0231 /391920 

BIORHYTHMUS mit Partner- 
vergieich druckt Ihren natürli¬ 
chen Lebensrhythmus als Sinus- 
kurve/Biozahl. f. 1-365 Tage m. 
ausf. Beschreibung nur DM 67,85 
für alle Apple II. Junker, A-Möl- 
lerstr. 1, 6390 Usingen. 

Aiie Lotto-Zahlen 6 aus 49 

von 1955 - Ende 1985 für Apple II 
auf Diskette inci. interessantem 
Demo-Progr. für DM 30,- Nach¬ 
nahme. Tel. 030/75201 94 

Apple II; DFÜ-Kermit, Pascal 
satt Public Domain in DOS u. CP/ 
M. Je Volume DM 15,-. Bahnhofs¬ 
simulation Sprachen (S.A.L.), 
Schulprogr. Gratisinfo: 

Fa. Waltraud Muhle, Waldwinkel 3, 
2105 Seevetal 3. 

StatWorks Statistikpro¬ 
gramm DM 425,-. Zu beziehen 
durch: Heyden & Son GmbH, 
D-4440 Rheine, Postfach 529, 

Tel. 05971 /551 11 


Video Cassettenverwaltung 

Apple 11+ und comp. DM 68,-voll 
menuegesteuert. Suchen nach: 
Titel, Cass-Nr., Filmart, Bemerk, 
uvm. Drucken v. Filmlisten, Etiket¬ 
ten. Bequeme Editiermöglichkelten. 
Biesler, Tel. 09661 /1300 nach 
19.00 h, 8458 Sulzbach, Max- 
Planck-Str. 12. 

**** KOPIERSCHUTZ ^ ^ 

Pirate Defence: Das professionelle 
Schutzsystem für Software unter 
ProDOS, DOS, DSR,... Macht Dis¬ 
ketten gegen neueste Kopierer 
sicher. (LOCKSMITH 6, COPY 11 + 
6). Info bei: C. Bregler, Tulpenstr. 2, 
7519 Eppingen, 07262/4414. 

SOFTWARETAUSCH *** 

Kontakt mit K. Brouwer, Gustav- 
Schwab-Str. 2 In 7317 Wendlingen 

Topsoftware für Apple II; 

Fußbalitabellenverwaltung: 30,-. 
PFS-Programme: 300,-. Ballbla¬ 
zer: 100-. Superbase: 300,-. 

Info (0,80 DM) bei: W. Rittmeyer, 
Wehrbruchweg 30,4060 Viersen 1. 

Der Renner; Das neue Mitt¬ 
wochs-Lotto zu DM 35,-. Rest¬ 
posten Der Turm von Hanoi für DM 
10,-. Förter, Am Wetterbach 53, 
7500 Karlsruhe. 

informatik-Projekt; Grafische 
Darstellungen. 

Info Tel. 0211 /330270. 


Ankauf Software 


Suche Software für Appie 
ile,c! Tel. 09251 75476. 

Suche Software CP/M 80 

Suche eine Kopie von der Original 
Disk. CP/M 80 56K. Vers2. 20B von 
Microsoft. - Gegen Bezahlung. CH- 
0041 /41 5550, 77 Luzern. 

Handwerkerprogramm/ 
Schreiner auf Ile. W. Müller, 
Sandhäuser Str. 1, 6900 Heidel¬ 
berg, Tel. 06221/7811 32. 

Suche Init/Treiber usw. Für 

BASIS 256K Ramkarte/Ile/UCSD 
PASCAL 1.2 (evtl, auch DOS 3.3). 
Ingram, Lütticherstr. 30, Köln 1. 

CP/M 2.2 Systemdiskette 
gesucht für Ile A. Grün Telefon 
021 51/3021 77 

Hausverwaltung-Programm 

für Apple Ile. Kallmeyer, Seegefel- 
der 75, 1000 Berlin 20. 
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Für Ihre Unterlagen 

Abonnement bestellt 


am:_ 

Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag GmbH, Postfach 
102869, 6900 Heidelberg innerhalb 
von 7 Tagen widerrufen kann. Zur 
Fristwahrung genügt die rechtzeitige 
Absendung des Widerrufs (Datum 
des Poststempels). 


pEEkER ^ 

^ Ja, ich möchte Peeker abonnieren. 

ijS Liefern Sie mir Peeker ab Ausgabe . zum Jahresbezugspreis 

von z. Zt. DM 72,- (Inland) inkl. MwSt. Die Lieferung erfolgt frei Haus. Porto, Ver- 
n Packung und Zustellgebühren übernimmt der Verlag. Der Jahresbezugspreis für 
das Ausland beträgt z.Zt. DM 72,- plus DM 18,- Versandspesen. 


I 


X 



Datum 1 ■ Unterschrift 

Bitte lesen! 

Vertrauensgarantie: Ich habe davon Kenntnis genommen, daß ich die Bestellung schriftlich durch Mitteilung an den 
Dr. Alfred Hüthig Verlag GmbH, Postfach 1028 69, 6900 Heidelberg innerhalb von 7 Tagen widerrufen kann, Zur 
Fristwahrung genügt die rechtzeitige Absendung des Widerrufs (Datum des Poststempels). 


Peeker 

Leserservice 

Postfach 102869 
6900 Heidelberg 


Für Ihre Unterlagen 

Folgende Bücher bestellt: 


am:_ 

bei: 

Peeker 

Versandbuchhandlung 
Postfach 102869 
6900 Heidelberg 1 


Für Ihre Unterlagen 

Folgende Disketten 
und Programme bestellt: 


am:_ 

bei: 

Peeker 

Softwareabteilung 
Postfach 102869 
6900 Heidelberg 1 



_X_ 

Dalum 2, Unterschrift 

Verlagshinwefs: Oas Abon rern ent wer länger l sich zu den jeweils gültigen Bedingungen um ein Jahr, wenn es nicht 
2 Monaie vor Jahresende schrilllich gekündigt wffcl. 

Wir können nur Bestellungen mit zwei Unterschriften bearbeiten. 


PeeIler ^ 

<u 

1^2 Bitte senden Sie mir gegen Rechnung folgende Bücher: 



□ Bühfer* Applesoft-BASIC, 
3-7785-1094-0, DM 38,- 

□ Eggerich, dBase tl, Bd. 1, 
3-7785-1147-5. DM 39,80 

n Eggerich, dBase II, Bd. 2. 
3-7785-09S7-X, DM 39,80 

□ Eggerich, dBase II, Bd. 3, 
3-7785-0988-8, DM 39,80 

□ Gabriel, Applewriter, 

3-7785-1234-X, DM 35,- 

□ Hagenmüller, Microsoft-BASIC, Bd. 1, 
3-7785-1038-X, DM 38- 

□ Juhnke/Redlin, Apple Pascal, Bd. 1, 
3-7785-1246-3, ca. DM 40,- 

□ Kehrel, Apple Assembler lerner^, Bd, 1, 
3-7785-1151-3, DM 38,- 


□ Kehrel, Apple Assembler lernen, Bd. 2, 
3-7785-1170-X, DM 38,- 

□ Schäpers, ProDOS Analyse, 
3-7785-1134-3, DM 68,- 

n Schäpers, Bewegte Apple-Graphik, 
3-7785-1150-5, DM 58,- 

□ Stiehl, Apple DOS 3.3, 

3-7785-1297-8, DM 28,- 

□ Stiehl, Apple ProDOS, Bd. 1, 
3-7785-1098-3, DM 28,- 

□ Stiehl, Apple ProDOS, Bd. 2, 
3-7785-1036-3, DM 30,- 

□ Stiehl, Apple Assembler, 
3-7785-1047-9, DM 34,- 

□ Wassermann, Apple llc Handbuch, 
3-7785-1157-2, DM 35,- 


Datum 




-f-f-f-f^-fpCEkER^ 



Bitte senden Sie mir gegen Rechnung folgende Disketten: 


□ Peeker-Sammeldiskette. einzein 

Disk#_. Disk#_. 

Disk#_. Disk#__ 

Preis je Disk DM 28,- (einzefn) 

□ Peeker-Sammeldiskette, 

Im Fortseizungsbezug 

ab Disk#_ 

(Mindestbezug 6 Disketten) 

Preis je Disk DM 20- 

O Apple DOS 3.3, Begleildisk.. DM 28,- 
D ProDOS, Band 1, Begleitdisk., DM 26- 
D ProDOS. Band 2, Begleitdisk., DM 2B- 
n Apple Assembler, Begleitdisk., DM 26- 


□ ProDOS-Editor 1.0, Programm, DM 98- 

□ MMU 2.0, Programm, DM 98,- 

□ INPUT 2.0, Programm, DM 98,- 

□ Softbreaker 1.0, Programm, DM 20,- 

□ DB-Meister, Programm, DM 290,- 

□ Superquick, Programm, DM 48,- 

□ Turtle Graphics, Programm, DM 98,~ 

□ Disk 40, Programm, DM 48,- 

□ Kyan-Pascal 2.0, Programm, DM 170,- 

□ Fast-Writer, DOS 3.3, DM 128,- 

□ Fast-Writer, ProDOS, DM 128,- 

□ Double-Hires-Tools für Applesoft, DM 28,- 

□ Double-Hires-Tools für Kyan, DM 28,- 

□ Kyan-Toolkit Nr._, DM_ 



Dalum 


Untefsehrift 




























Software-Karte Buch-Karte 4 44 Abo-Karte 



Marne 


Firma 


POSTKARTE 


Siraße 

PLZ/Ort 

Ich wünsche jährliche Berechnung durch: 

□ Verlagsrechnung □ Abbuchung von 
meinem Bank- bzw. 
Postscheckkonto 

Bank/PschA 

Bankleitzahl 

KlO--Nf, 


Peeker 

Leserservice 

Dr. Alfred Hüthig Verlag GmbH 
Postfach 102869 
6900 Heidelberg 


INPUT 2.0 

Ein Bildschirm- 

Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u. a. definieren: Feldlänge (bis zu 255 
Zeichen) - Vtab - Htab - Datentyp (insge¬ 
samt 8 Typen) - Scrollflag (starre oder dyna¬ 
mische Maske) - Ctriflag - Füllflag - Lösch¬ 
flag - Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder Ile; fer¬ 
ner Apple 11+ im 40-Zeichenmodus 



Karte bitte vollständig ausfüllen 


Vorname, Nsme 


Firma 


SiraQo 


PLZ/On 


Telefon mit Vorwahl 


POSTKARTE 

Peeker 

Buchabteilung 

Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple Ile 64K-Karte 
DOS 3.3 (und ProDOS) 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 

Insgesamt enthält die neue „MMU 2.0"- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 
Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder llc 



Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Straße 


Pl2/0rt 


Telefon mit Vorwahl 


POSTKARTE 

Peeker 

Softwareabteilung 
Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


DISK 40 

Disketten-Organisationsprogramm 
für DOS-3.3-35-40 Spuren 
von Hermann Seibold und Dipl.-Ing. 
Udo Marin, 1986, Programmdiskette 
mit Anleitung, DM 48,- 
Durch eine einfach zu bedienende Menü¬ 
führung können DOS-3.3-Disketten um¬ 
fangreich bearbeitet oder kopiert werden. 

- Tabellarische Ausgabe der Disketten¬ 
belegung 

- Ordnen des Catalogs 

- „Undelete"n von versehentlich ge¬ 
löschten Dateien 

- Vergleichen von Disketten, Dateien 
oder DOS-Spuren 

- Kopieren von Disketten, Dateien oder 
DOS-Spuren 

- Formatieren von Daten-Disketten 

- Erweitern auf 40 Spuren bei bestehen¬ 
den 35-Spur-Disketten 

- Ändern des Boot-Programms 

- File-Editor zum Editieren von Disketten- 
Dateien 

- Komfortabler Sektor-Editor für Hex- 
und ASClI-Darstellung 
-VTOC-Editor. z. B. zur Freigabe der 
DOS-Spuren 

Hüthig Software Service, 

Postfach 102869, D-6900 Heidelberg 
































Verschiedenes 


APPLE REPARATUREN 

(auch compatible M-boards, z.B. 

Atlas, Area, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali¬ 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 

Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag, 
aaa-eiectronic gmbh 

Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642aaad 


Hochaufiös. Videoscanner 

-I- CAD (Elektro/Elektronik) für 
Apple Ile gesucht. Eilt! St. Richter 
8650 Kulmbach, Kalte Marter 3. 

Verkaufe f. Apple Ile 

Driver Card DM 60.-. Auto-Eprom 
Prog. DM 100,-. Z80 Card DM 
80-. 80Z/64K DM 260,-. Visikalc- 
Package DM 350,-. Apple-Works 
DM 650,-. Tel. 0 6646/527. 

Mailboxen in der Schweiz: 

die interessantesten Auszüge auf 
randvoller Apple-Diskette gegen 
Einsendung von DM/Fr. 10- an 
Matthias Meyer, Postfach 191, 
CH-9001 St. Gallen 

!!!! Da gibt’s was umsonst!!!! 

4 X im Jahr den neuen Katalog. 
Bühler Elektronik, Postfach 32, 
7570 Baden-Baden 


Systemwechsel Superpreise 

alles neuwertig! Accelerator Ile 
450,-, Word-Juggler (Dt. Textv. 
incl. Wörterb.) 450,-, llc 1700,- 
Imagewriter 800,-, 10 MB-HD 
2500,-; Gernot Eiler, 

Tel. 0043-05513/6 70 83 

* DISKETTEN « 

* 5 1/4", 48tpi, DM 1,99 * 

*3 1/2", 135tpi, DM4,65* 

* auch andere, 6 Mon. Garant. * 

* Allg. Austro-AG, Ringstr. 10 * 

* D-8057 Eching, T. 08133/6116 * 

Appie lle-64KB, Monitor II, 

DuoDisk-Laufwerk, Superserielle 
Karte, 80Z Karte. Incl. Software z.B. 
Apple Writer II, Quick File und vieles 
mehr sowie Handbücher. 

Neupreis ohne Software DM 4300,- 
Verkaufspreis komplett DM 2700,- 
Tel. 08389/256 


Suche schriftl. Erfahrungs¬ 
austausch Apple Ile & (Kyan) 
Pascal, C. Heeren, Leliestr. 56. 
NL-Eibergen. 

PASCMAK: Suche Vertriebs¬ 
partner und Interessenten für 
mein neues Immobilienmakler- 
Programm. Heinz. Waldgürtel 7, 
5060 Berg. GId. 1 

Ihre Erphi-Vertretung für die 
Schweiz: Beltronic, Im 

Chapf, 8455 Rüdlingen, Tel. 
01867 31 41, Telex 825981. 


Tausch 


Tausche Apple comp. 64K, 

Z80, CPU, IBM-Gehäuse, separate 
Tastatur 80-Zeichen, 2 Laufwerke 
256K und Monitor gegen Apple llc 
-1- Monitor. Tel. 024 06/798 83. 


Inserentenverzeichnis Peeker 9/86 


aaa Electronic, Freiburg.39 

Computer Works, Basel.13 

Frank & Britting GmbH, Forst.13 

IDW-Electronic, Neufahrn.. , 51 

Interkom Electronic GmbH.13 

Klaus Jeschke, Kelkheim.13 

MoVe GmbH, Leverkusen.. , , * 51 

MP//C-Datentechnik, Kerpen.68 

T. Müller Computer-Service, Offenburg.13 

Pandasoft, Berlin. 17 

M. Semjan Computer Systeme 11 

Tewi Verlag, München ..* . . . 21 

Ueding Electronics, Menden.. , 14 

Weiss Computer, Wilhelmshaven.. , 51 
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Der nächste Peeker, Heft 10/1986, 

erscheint in der 

vierten September-Woche 


TurtleGraphics-Library-Paket 

von Dieter Geiß 

Turtle-Utilities für Fenstertechnik und Apple-Maus in einfa¬ 
cher und doppelter Hires-Grafik für Pascal 1.2 auf Apple 
lle/c mit Maus oder Joystick. 2 Disketten mit umfangrei¬ 
chem Manual, DM 98,-. Unter Pascal 1.1 mit 64K nur ein¬ 
geschränkt lauffähig 

Im einzelnen bietet das Paket folgende Möglichkeiten: 

- volle Kompatibilität mit der alten „TurtleGraphics“ 

- alle zeitkritischen Funktionen in reinem Assembler programmiert 

- Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 

- für Apple llc und Apple Ile mit erweiterter 80-Zeichen-Karte Be¬ 
nutzung der doppelten Hires-Grafik mit 560 x 192 Punkten 
bzw. 16 neuen Farben möglich 

- schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

- Benutzung mehrerer Zeichensätze gleichzeitig 

- Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 

- drei verschiedene Schriftarten: Fett-, Breit- und Proportional¬ 
schrift, beliebig mischbar (acht Möglichkeiten) 

- spezielle schnelle Ausgabe von Text 

- Cursor bei Eingabe frei programmierbar 

- Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL- 
Werten im Grafikmodus 

- Menüzeile wie beim Macintosh 

- Pull-down-Menüs 

- Laden und Speichern von Fenstern (Windows) 

- Öffnen von Fenstern 

- Aktivieren und Deaktivieren von Fenstern 

- Verschieben und Vergrößern/Verkleinern von Fenstern 

- Scrolling von Fensterinhalten in allen vier Richtungen 

- Umfangreiche Demos als Quelltexte. 

Hüthig Software Service • Postfach 102869 ■ 6900 Heidelberg 
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Assembler-Syntax 

& Operations- 
bcschreibiing 


X/C<={ea)<=0 
um 1 Bit 


0->(0a)=>X/C 
um 1 Bit 


MOVE s ea,(Am) 

(ea)->(A 


MOVE.s ea,(Am)+ 
(ea)->(Am}, (Am)+ss->Ani 


MOVE.s ea,-(Am) 
(Ain)-sS“>Am, {ea)->( Am) 


MOVE.s ea,d(Am) 


HQVS 4 trn.diAa^RK) 


IMOVK.« «A.KX.n 


1 MOVC.li vn.xitxK.L 


i Code iCy| Code 

1 — I — 


1 (An) 

Cy1 Code :Cy 


|W| 1 - 

|L| I - 

-**00iB|01m00n: 4| - 

jffi03m00n; 4i03m01n: 
iL|02m00n; 4i02m01n: 
-**00lB|01m20n; 8| 

iwi03m20n: 8i03m21n: 
iL|02m20n:12|02m21n: 

-**00lB|01m30n; 8| - 

|wl03m30n: 8l03m31n: 
|Ll02m30n:12|02m31n: 

-**00|B|01m40n: 8] - 

|w|03m40n; 8|03m41n: 
1LI02m40n;14|02m41n; 
-**00iB|01m50n:12t - 

ni t ■ IO [ , 

-«*0^ &r0lBe0n:i4| - 

Tf 

L 0J^v60n: iat0£iDeini 

e ßl07|Tä:lE| “ 

L 

—#00 u — 

Kl 0517011; 16 
LIDS 17013:30101217 ln 
.*.*# B| — I - 

lt|04230n:l»| 

U| -- I — 

***** IBI - I- 

|flj04330n:12| - 


|W|04030n: 6 

IM — 

-1B| — 

jWl03ml0n; 4 
|L|02ral0n; 4 


16173n:16|16174n:18116175n:20|16176n:22|161770:20 \ 161771:24] 

— — — I — I — 1 I 

— I — I — I — t — I I 

16133n:16116134n:18116135ni20 j16136n:221161370;201161371:241 


101m02n: i 
4i03m02n; i 
4i02m02n:l; 

|01m22n:l 
8i03m22n:l 
12i02m22n:2 
|01m32n;1 
8|03m32n:l 
12|02m32n;2 
i01m42n:l 
8I03m42n:1 
14|02m42n:2 
i01m52n:l 
T^O I gXinFOn ■ 1 

OlmOSti; \ 

H pKoCÄfl:1 

01072n;1 
12 030T3ii] i 
16 M07i!n:2 

0U7Sn:2 

le pamni-S 


MULU ea,Dm 

{Dm)*(ea)->Dm 


0-{ea}-X->ea 


iNEG.s ea 

1*****|B[04200n. 4| 

— 104202n 

12 

04203n 

12 

04204n:14|04205n 

16 

04206n 

18 

042070;16 

042071 

20 

— 

— 

-- 


1 0- 

(ea)->eai jff|04210nl 4f 

-- i04212n 

12 

04213n 

12 

04214n;14i04215n 

16 

04216n 

18 

042170:16 

042171 

20 

— 


— 



1 iLj04220n: 6( 

- 104222n 

20 

04223n 

20 

04224n:22j04225n 

24 

04226n 

26 

042270:24 

042271 

28 

— 

^1—« 


— 

[nECX.s ea 

|*****lB|04000n: 4| 

-— 104002n 

12 1 

04003n 

121 

104004n;14104005n 

16 

104006n 

18! 

1040070:16 

1040071 

20 

— 

— 

"- 

— 

1 0-{£ 

!a}-X->eai iwi04010n: 4j 

- |04012n 

12 1 

04013n 

121 

04014n:14j040i5n 

16 

04016n 

18 

040170:16 

1040171 

20 

— 

-= 

1 

'—- 


1 iLj04020ni 6f 

104022n 

201 

04023n 

201 

04024n:22|04025n 

24 j 

04026n 

261 

040270:24 

1040271 

281 

— 


— 

*** 


(Dm) V (ea)->Dra 


OR.s Dm,ea 

(ea) V (Dm)->ea 


ORI s +xxx,ea 

(ea) V xxx->ea 


ROL ea 

C<=(ea)<=(ea)[F] 
um 1 Bit 

ROR ea 

(ea)[0]=>(ea)=>C 
um 1 Bit 

ROXL ea 

X/C<={ea)<=X 
um 1 Bit 

ROXR ea 

X=>{ea)=>X/C 
um 1 Bit 


Scc ea 

Wenn cc dann FF->ea 
sonst 0->ea 


4|03ml2n: 
4|02ml2n: 

I — 

|04622n: 

1046320: 


Effektive Adresse (ea) 

{An)+ 1 -(An) [ d(An} |d(An,Rx) ] xx.W | xxxx.L 1 d(PC) |d(PC,Rx) 4=xxx 

Code :Cyl Code :Cy| Code :Cyl Code :Cy| Code iCy] Code :Cyl Code :Cy| Code :Cy| Code :Cy 


: 8|01m04n 
; 8103m04n 
;12|02m04n 
i;12|01m24n 
i;12i03m24n 
::20|02m24n 
L;12i01m34n 
i:12|03m34n 
1 :20102m34n 
i; 12|01m44n 
i;12|03m44n 
i:20102m44n 
i:16|01m54n 

i:24j02>OI4n 

i:lSf01liie4n 

ifia|0JjDi64n 

i: 26 j 03 B 64 n 

i:J6|0IfT4n 

kT^ll)£07(tn 

iL20|Oll74n 

1120103174(1 

K20j02174n 

. ( 

i: 


10I01m05n 
10|03m05n 
14i02m05n 
14|01m25n 
14I03m25n 
22102m25n 
i4|01m35n 
14I03m35n 
22102m35n 
14|01m45n 
14|03m45n 
22I02m45n 
18[01m55n 
iaj03m55n 
26j034660 
20|0lBGSn 
;20|03B6Sn 

£iei01p75n 
;iaj03076n 
36 02e73n 

:n eima 

■.2Z 0317511 
30 021T5H 

: iejW23Eci 


12|01m06n 
12!03m06n 
16102m06n 
16|01m26n 
16103m26n 
24i02m26n 
16|01m36n 
16|03m36n 
24I02m36n 
16|01m46n 
16l03m46n 
24|02m46n 
20j01in56n 
20 03m56n 
S8|02a5Cn 

^2j03n66^n 

£0 [0107611 
20103076(4 
2^ [0007611 
24i0ll76tL 
24403176n 
32100176(1 
( — 


14[01m070 
14i03m070 
18i02ra070 
18|01m270 
18[03m270 
26i02m270 
18|01m370 
18[03m370 
26I02m370 
18i01m470 
18I03m470 
26]02m470 
22I01m570 
22I03m570 
3P|0Z«5T0 
24 OimBTO 
24l03n67{| 
5.S 10120570: 
32 010770 
22[030770 
301020770 
26|Oll'f70 
251031770 
341021770 


12|01m07i 
12i03m071 
16i02m071 
16|01m271 
16 1 03m271 
24 1 02m271 
16i01m371 
16|03m371 
24|02in371 
16l01in471 
16I03m471 
24102m471 
20|01m571 
20i03ffi571 
26j02ii57l 
22101^71 
32103B67I 
3010216671 
20 010771 
20[030771 
020771 
:24 011771 
;24 031771 
iSa 021771 

:2e1042571 


ib|01ia072 
16103m0T2 
20102ra072 
20i01m272 
20|03m272 
28102111272 
20101m372 
20103m372 
28I02m372 
20|01m472 
20!03m472 
28 j 02m472 
24j01m572 
24103m572 
32|02e672 
£6E01d672 
26 

34 0^4672 
24 010773 
24 0i(0772 
32 020772 
£0 011772 
Ä0 031772 
36 02 ma 

:24 042372 


12l01m073 
12 103in073 
161020073 
16|01m273 
16i03m273 
241020273 
16101m373 
161030373 
24I02m373 
161010473 
16|03m473 
24!02m473 
20l01m573 
20103m573 
261020573 
22j110673 
22|03ic6V3 
30|02o673 
201010773: 
20 030773 
26 0E0Y73: 
24 011773 
24 031773 
32 021773 


CCR/SR I 
Code :Cy| 


: 141010074; 8| 

: 141030074: sj 
: 181020074;12j 
:18|01m274;12| 

: 18[030274;121 
:26l02o274;20| 

: 181010374:121 
: 181030374:121 
: 26102m374:20| 

: 181010474:121 
;18|03m474:12| 

: 26102m474;20[ 
:22|01m574:16| 
1221030574:161 
:30i0aBST4i24l 
:24[01ii£74:1,6 
:24[03bG74:18 
1321020674:26 
itZ 010774:16 
:£2lO30774:l6 
: 301020774:24 
:261011774:20 
1261031774:20 
: 341021774:28 

t — 

i22|042374:iei 


;16|04334n: 

I 


04033n:12|04034n;14|04035n: 


:22i043370:20 \ 043371:241043372:20[043373:22 j 043374:16 


:18I040370:16|040371:20i 


103ml3n: 8103ml4n:10103ml5n:12|03ml6n 
102ml3n:12102ml4n:14102ml5n:16 j 02ml6n 

I -121 — 1 -161 - 

|04623n: 4l - |04625n: 4|04626n 

|04633n; sj - i04635n: 8i04636n 

I - I - 8| -12| - 

I - (04423n: 5l04425n: 5|04426n 

I - 104433n:10 j 04435n:10 j 04436n 


14I03ml70;12|03ml71:16|0 
18102ml70:16 j 02ral71:2010 

181 - 161 -201 

41046270: 4|046271: 4|0 
81046370: 81046371: 810 

141 -12] -161 

51044270; 51044271: 5| 
101044370:101044371:101 


;12l03ml73;14|03ml74: 8] 
:16|02ml73:18j02ml74:12i 

. i6| 18| I 

: 41046273: 4| | 

: 81046373: aj - | 

■ I — I I 

I — 1 — I 

I — I — I 

“- -Y --— 


:74114m73n;74114m74n:76114m75n:781i4m76n: 1 

I — I 1 — I — 


jI4m770:78|l4m771:82|14m772:78|14m773:80|14m773:74I 


114m32n■74114m33n:74114m34n:76114m35n:78[14m36n:80 j14m370:781140371:82 j14m372:78 j14m373:80114m373;74] 

I — I — I — I — I — I — 1 — I — I — I — I 

_l-j-1--1--1-H-1--4-1-1-P 

i04402n;12|04403n;12|04404n:14|04405n:16|04406n:181044070:161044071:201 - | - I -- I 

I — I — I — I — I — I — i _ — ! — ! I — I 


: 13104313(1 
:2010433311: 

l: 8 110m03n 
i: 8il0ml3n 
i:14il0m23n 
L:12|l0m43n 
i;12il0m53n 
i;20jl0m63n 
i:16|00003n 
i: 16i00013n 
1:28100023(1 


IZ 10430411: l< f?430Sn: 16 f 04306(1; IS |iä43070116 043071:20 - 

l3|{i43lH|n:14ld43l5n:16j04316n: l8 (143170:161043171:20 - 

20104324n;22J04325n:24l04326n:261043270:24 043271:20 - 

-1--4-j-H-h -—1-- 

8I10m04n:10|10m05n:12|10m06n:14|100070:12|10m071:16|10m072 
8!10ml4n:10 j10ml5n;12[10ml6n;14110ml70:12 j10ml71;16 j10ml72 
141i0m24n:16110m25n:18110m26n:20110m270:18 j10m271:22110m272 

12110m44n:14 j10m45n:16[10m46n;18 j10m470:16 j10m471;20 j - 

12110m54n■14110m55n;16[10m56n;18110m570;16110m571:20 j 
20110m64n;22110m65n:24 j10m66n:26110m670:24110m671:28 j 

16 j 00004n:18100005n;20[00006n:221000070;201000071;241 - 

16100014n:18[00015n:20100016n:22 j 000170;201000171:24 j 
28i00024n:30100025n:32 j 00026n;341000270:321000271;36[ 


12I100073 
12U0ml73 
18I100273 


14 lOD|Vf4 
14 10 h174 

201100274 


_ |044l2n:12i - I - |04415n:16i04416n:201044170;161044171:201044172:161044173:201 

__I__- ——i _h- \- -+-1-1--__4 

116372n: 16 116373n: 16 !l6374n: ta 16375(1 :Eojl6l76((: 22 163770:201163771; 24 j - j — 

116332n:16|l6333n;16116334n:la ie335n:2e]l633Sn:22 163370:20j163371:241 -- j — 

116272n: 16 ]l6273n; 16116274n: la 16275(1-20 j 16376(1:22 162770:201162771:241 - -— 

I16232n!16|l6233n:16i16234n:LB 16a3an:aPjlfi2ÄSn:22 162370:201162371:241 —* j - 


I — I 
'! — ! 


I = I 
1 = I 
I = ! 

I — ) 


105032n: 12 105033n: 12105034n: 141: 103 BS036 ti : 18 j 050370:16 1050371:20 [ 

I — I — I — I — I *- 1 — I — I 


30 
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68000 



Assembler-Syntax |Flags 
& Operations- j 

beschreibunglXNZVC 
- 1 -- 


Effektive Adresse (ea) 

Dn 1 An | (An) | (An)+ j -(An| | d(An) |d{An,Rx) | xx.W 
Code :Cyi Code ;Cyj Code :Cyj Code :Cyj Code Cyj Code :Cy| Code :Cy| Code 

-*• 


j xxxx.L I d(PC) 
Cyj Code ;Cyi Code 


|d(PC,Rx) 
Cy1 Code :Cy 


#XXX i 

Code :Cy j 


CCR/SR t 
Code :Cy| 


SUB,s ea.Din |***** 

{Dm)-(ea)->Dmj 

I 

SUB.s Dm,ea 

(ea)-{Dm)->ea| 

I 

SUBA.s ea.Am j- 

(Am)-(ea)->Aint 

I 

SUBI.s *xxx,ea |***** 

{ea)-xxx->ea| 

I 

SUBQ.s #x,ea |***** 

{ea)-x->ea| 

I 


llm00n: 

lliiil0n; 

llm20n: 


4| — 

4|llmlln; 

alllmain: 

8|lliD31n; 
SlllmTln: 
8| — 

8i - 

161 - 

4| — 

4|05x51n: 
8|05x61n: 


llin30n 
llm70ii; 
00200n: 
00210n; 
00220n: 
05x40n: 
05x50n; 
05x60n: 


|llra02n 

4illml2n 

8jllm22n 

illm42n 

jllm52n 

|llm62n: 

I 

8|llm32n 
8lllm72n 
|00202n: 
|00212n: 
1002220: 
|05x42n: 
8105x520; 
8I05x620: 
-+■ 


8[llni03n 
8[llinl3n 
14|llm23n 
12illm43n 
12illm53n 
20|llm63n 
1 __ 
12lllm33n 
14|llm73n 
161002030: 
161002130; 
281002230; 
12I05x430 
12105x530 
20105x630; 


; 8lllm04n; 
: 8|llml4n 
14|llm24n; 
;12illm44n; 
12[llm54n; 
20|llin64n: 

I — 

;12lllm34n; 
14|llm74n: 
161002040; 
161002140: 
28(002240: 
12I05x440: 
12I05x540: 
20105x640: 


10|llm05n 

10illml5n 

16|llm25n: 

14illm45n: 

14illm55n: 

22|llm65n; 

I 

14|Hm35n 
16jllm75n: 
18I002050; 
181002150: 
30(002250: 
14(05x450; 
14105x550: 
22 (05x650: 


12lllm06o 

12(11111160 

18illin26n: 

16(llra46n: 

16(llm56n: 

24[llm66n; 

I — 

16|llm36n 
18lllm76n; 
20(002060; 
20(002160: 
32(002260: 
16(05x460; 
16(05x560: 
24(05x660: 


14(llm070 

14illral70 

20(llm270 

18(llm470 

18(llm570: 

26(llm670; 

I — 

18jllm370 
20|llni770: 
22(002070: 
22(002170: 
34(002270: 
18(05x470; 
18105x570; 
26105x670: 


12lllm071 

12(11111171 

18illm271 

16illm471 

16(llm571 

24[llm671: 

I — 

16lllm371 
18(llni771 
20(002071 
20(002171 
32(002271 
16I05x471 
16(05x571 
24105x671 


:16|11il072: 

:16jllml72: 

22(llm272: 

20 ( - 

20 ( - 

28 ( 

I — 

20|llm372; 
;22(llm772: 
24 ( 


241 
361 
201 
201 
281 


12)llm073:14 
12illma73;14 
ialllm273:20 
1 — 

I __ 

i — 

1 — 
16lllm373:18 
lSlllm773:20 

I 


llm074; 8 
11111174: 8 
llm274;14 


llm374;12 

llm774:14 




TAS ea (-»»00 

Test von (ea) ->CCR1 
l->ea[7]1 
TST,s ea (-**00 

Test von (ea) ->CCRl 

I 


045300: 4l —- (045320: 


045000: 
045100: 
045200: 


I 

I 

1045020: 
1045120; 
1045220: 


14104533n; 

I — 

8(045030; 

81045130: 

12(045230; 


14I045340: 

I — 

1 — 
81045040: 
8(045140; 
121045240: 


16(045350: 

1 — 

1 — 
10(045050: 
101045150: 
14I04525n: 


18(045360: 

I ___ 

12(045060: 
121045160: 
16(045260: 


20(045370: 

14I045070: 
14(045170; 
18(045270: 


181045371:22( 

I — I 
I — ( 

12(045071:16( 
121045171:16( 
16(045271:201 


Anmerkungen 

zu CHK : Die oberen Taktzyklen gelten für den Fall, daß ein Trap auftritt, die unteren, falls kein Trap auftritt. 

zu DIVS/DIVU : Die maximal benötigten Taktzyklen errechnen sich wie folgt; <angegebener Wart> + 100 Zyklen 

zu HOVEM : Die Taktzyklen errechnen sich wie folgt : <Zykl 0 n der Zeile "B"> + <Zahl der Register> * <Zyklen der Zeile ' 

zu MULS/MULU : Es handelt sich um die maximal benötigten Taktzyklen 

zu NBCD : Die Negation wird im BCD-Code gerechnet 

zu SCC Dn : Wenn "cc" richtig ist, werden 6 Taktzyklen benötigt 

Die Zeichen in der Spalte "Flags" bedeuten: 

- : Flag wird nicht verändert 
0 : Flag wird auf 0 gesetzt 
* : Flag wird wie üblich verändert 
U : Flag hat Undefinierten Wert 


Teil 2: Befehle mit fester „Effektiver Adresse“ 


(Assembler-Syntax 


Operationsbeschreibung[XNZVC|s| Code 
-P-H—I- 


: Cyc I (Assembler-Syntax 


OperationsbeschreibungIXNZVC j s| Code : Cyc ( 

-+—\ --I- 


“ ' I 


ABCD Dn,Dm 

]*U*U*]B]l4m40n: 6] 


(Dm)+(Dn)+X->Dm] 

I 

jwl - ] 

IL ( _ I 

ABCD -(An),-(Am) 

I 

|*U*U* 

\^\ I 

jB|14m41n: 18[ 


(-(Am))+(-(An))+X->(Am)| 

|w| - 1 


I 

!L] - 1 

ADDX.s DW.Dm 

]***** 

]B|l5m40n: 4[ 


(Dm)+(Dn)+X->Dmi 

jwil5m50n: 4| 


I 

lL|15m60n: 8j 

ADDX.s -(An),-{Am) 

]***** 

|B[15m41n: 181 


(-(Am))+(-(An))+X->(Am)j 

]W|15m51n: 18] 



lLjl5ra61n: 30j 

ASL,s Dm,Dn 

I***** 

■ 1B!16m44n:6+2*d] 


X/C<=(Dn)<=0i 

jw|l6m54n:6+2*d| 


um (Dm) Bits] 

]L]16m64n:8+2*dj 

ASL.s #x,Dn 

] ***** 

:]Bil6x40n:6+2*x( 


X/C<=(Dn)<=0i 

(W|l6x50n;6+2*x] 


um X Bits] 

]L]l6x60n:8+2*x| 

ASR.s Dm,Dn 

I ***** 

■]Bil6m04n:6+2*d] 


(Dn)[MSB]=>(Dn)=>X/ci 

jwjl6ml4n:6+2*di 


um (Dm) Bits[ 

iLil6m24n:8+2*di 

ASR.s 4x,Dn 

] ***** 

^]B]l6x00n;6+2*x| 


(Dn)[MSB]=>(Dn)=>X/ci 

1Wj16xl0n;6+2*x| 


um X Bits] 

]L]16x20n;8+2*x j 



)- 

Bcc <Label> 

I- 

■]B]0600dd:10/ 8] 


Wenn cc dann (PC)+ddd->PC] 

iwj060000:10/12] 


I 

|L] - ] 

BRA <Label> 

]- 

■]B]0600dd: 10 j 


(PC)+ddd->PC] 

l 

iwi060000: 10] 

iT 1 _ 

BSR <Label> 

I 

I- 

1 *-■ 1 1 
■]B]0604dd; 18] 


{PC)->-(SP),(PC)+ddd->PC] 

I 

jw]060400: 18] 


I 

1^1 1 

CMPM.s (An)+,(Am)+ 

]-**** 

]B]13m41n: 12] 

Test 

von ((Am)+)-((An)+) ->CCRi 

]wil3m51n; 12] 


I 

.. 

jL]l3m61n: 20] 

4-l — 1- 




DBcc Dn,<Label> 

I - 

■]B] - 1 

Wenn -cc dann { (Dn)-l 

->Dn. ] 

iw)05031n:10/14] 

Wenn (Dn)=|=-1 dann (PC)+ddd->PC } | 

I 

]L| - ] 

.-t 1 — f- 

EXG Dm,Dn 

I- 

.(Bl - ] 


(Dm)<->(Dn)| 

|w| - 1 


I 

]L]l4m50n: 6] 

EXG Am,An 

I- 

■]B] - ] 


(Am)<->(An)] 

|W|- 1 


I 

|L|14m51n: 6| 

EXG Am,Dn 

I - 

,|B| - 1 


(Am)<->(Dn)] 

|w| - 1 


I 

]L|l4m61n: 6| 


(EXT.s Dn 


]-**00 


(Dn) vorzeichenerweitert ->Dn| 


(ILLEGAL {nicht bei 

I 


jedem Assembler vorhanden !)[- 
Trap wegen illegalem Befehl| 


(LINK An,#xxx 


(An) 


->-(SP),(SP)->An,(SP)+xxx->SP| 

- ■' — — -1— 


LSL.s Dm, Dn 


LSL,s #x,Dn 


LSR.s Dm,Dn 


LSR.s #x,Dn 


X/C<=(Dn)<=0| 
um (Dm) Bits| 


1 *** 0 * 


X/C<=(Dn)<=0| 
um X Bits( 


1 *** 0 * 


0=>(Dn)=>X/C[ 
um (Dm) Bits| 


1 *** 0 * 


0=>(Dn)=>X/C[ 
um X Bits! 


j ***0* 


MOVE USP,An 

MOVE An.USP 
jMOVEP Din,d{An) 

I 

IMOVEP d(An),Dm 

I 

IMOVEQ #xxx,Dm 

I 

I 


!- 

(USP)->An| 

I 


(An)->USP 


(Dm)->(An)+d[ 
in alternierende Bytes] 

I- 

((An)+d)->Dmi 
von alternierenden Bytes] 
1“ 

xxx->Dm| 


|NOP 


keine| 


- I I RESET 


I 


[ROL.s Dm,Dn 

I 

I 

(ROL.s +x,Dn 

I 

I 

(ROR.s Dm,Dn 

I 

I 


externe Geräte normieren] 

——- 1 ^. 


C<=(ea)<=(ea)[F]| 
um (Dm) Bitsj 


]-** 0 * 


C<=(ea)<=(ea)[F]j 
um X Bits] 


]-** 0 * 


a) [0]=>(ea)=>cj 
um (Dm) Bitsj 


]-** 0 * 


04420n: 
04430n: 


045378: 34 


04712n: 


18 


16m45n: 
16m55n: 
16m65n: 
16x41n: 
16x51n: 
16x61n: 
16m05n: 
16ml5n: 
16m25n: 
16x01n: 
ISxlln: 
16x21n: 


6+2*d 
6+2*d 
8+2*d 
6+2 *x 

6+2* X 

8+2*x 

6+2*d 

6+2*d 

8+2*d 

6+2*x 

6+2*x 

8+2*x 


04715n: 

4j 

04714n: 

J 

00m61n: 

161 

00m71n: 

.41 

00m41n; 

1 

16 1 

00m51n; 

241 

f 

07mxxx: 

1 

4] 


047161; 


4] 

1 


047160: 132] 


16m47n 

16m57n 

16m67n 

16x43n 

16x53n 

16x63n 

16m07n 

16ml7n 

16m27n 


6+2*d] 
6+2*d] 
8+2*d1 
6+2*x] 
6+2*x j 
8+2*x] 

6+2*d j 
6+2*dI 

8+2*d 
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|RTE 

I 

|rtr 

1 

|RTS 

I 


jSBCD Dn,Din 

I 

I 


Assembler-Syntax 

h 

Operationsbeschreibung|XNZVC1s] Code : Cyc j 
1-1— 1 \ 

1- 

]R0R.s #x,Dn 

1 

1 


1-#*0#1B116x03n:6+2#x 
(ea)[0]=>(ea)=>ci Iwj16xl3n:6+2#x 

um X BitsI II]16x23n:8+2*x 

iROXL.s Dm.Dn 


1###0* j B116m46n:6+2*d 
X/C<=(ea)<=X1 1W116m56n:6+2#d 
um (Dm) Bits 1 jL[16m66n:8+2*d 

ROXL.s +x,Dn 


1###0*1B116x42n:6+2#x 
X/c<=(ea)<=X1 1W116x52n:6+2#x 

um X Bits! 1L116x62n:8+2*x 

ROXR.s Dm.Dn 


1##*0#1B116m06n:6+2#d 
X=>(ea)=>X/C1 1W116ml6n:6+2#d 
um (Dm) Bits] jLj16m26n:8+2*d 

ROXR.s #x,Dn 


1*#*0*1B]16x02n:6+2#x 
X=>(ea)=>X/C1 1W116xl2n:6+2*x 

um X Bits| 1L]16x22n:8+2#x 


1 [Assembler-Syntax 

+ H— 


((SP)+)->SR,((SP)+)->PCi 


((SP)+)->CCR,((SP)+)->PCl 
((SP)+)->PCl 


I— 


(Dm)-(Dn)-X->Dm| 

I 


[#U¥U* 


047163: 
047167: 
047165: 


10m40n: 


ISBCD -(An).-(Am) 


OperationsbeschreibunglXNZVC 
- -1 - 


I 


(-(Aiii))-(-(An))-X->(Am)| 

I 


I #U*U* 


-1- 

|ST0P #xxx 

1 

-1-h-H- 

1*###*] 1047162: 
xxx->SR,Anhalten j j j 

1_1—1- 

-+ 

4| 

1 

l-^ " --- ' 

ISUBX.s Dn.Dm 

1##*##1B|llm40n; 

41 

1 

(Dm)-(Dn)-X->Dmi [wjllm50n: 

4| 

1 

j |L|llm60n: 

8| 

jsUBX.s -(An),-(Am) 

1#####|B1llm41n: 

181 

1 

(-(Am))-(-(An))-X->(Am)1 |willm51n: 

18 i 

1 

1 |Ljllm61n: 

30 i 


|SWAP Dn 

1 

I 

H- 

|TRAP *xx 

I 

ITRAPV 

I 

+ -- 


(Dn)[IF...10]<->(Dn)[F...0]| 


I -##00 


I- 

Trap Nummer xx| 
1 - 

Wenn V=1 dann Trap| 


lUNLK 

1 


(An)->SP.(SP)+ ->An| 


s[ Code : Cyo | 
-H-1- 


10m41n: 18| 

I 


04410n: 


4 | 

I 

— + 


0471xx: 34I 

i 

047166; 34/4] 

1 

- + 


04713n: 


12 I 

I 

-+ 


Anmerkungen 


zu ABCD/SBCD : Die Rechnung erfolgt im BCD-Code 

zu Bcc/TRAPV : Bei den Taktzyklen gilt der erste Wert, wenn ein Sprung erfolgt, ansonsten 
der zweite 

zu DBcc : Siehe auch "Bcc”. Die Werte gelten, falls "cc" falsch ist. Sonst lauten die 

Werte "—/12" 

zu den Schiebe- und Rotierbefehlen der Form "Dm,Dn" : Bei den Taktzyklen ist d := (Dm) 

Die Zeichen in der Spalte "Flags" bedeuten: 

- ; Flag wird nicht verändert 
0 : Flag wird auf 0 gesetzt 
* : Flag wird wie üblich verändert 
U : Flag hat Undefinierten Wert 


Tabelle 5: Die Bedingungscodes vom 68000 


H-H 

1Mnemonic 

Condition 

-H-— -—^— 

1 Bedingung (deutsch) 

_ 

-+- 

1 Code 1 

.-j,+. 

Test 

1 


1 

T 

True 

[ wahr 

j00001 

1 

1 



F 

False 

1 unwahr 

100011 

0 

1 


1 

HI 

High 

1 größer 

100101 

-C&-Z 

|-\ 



LS 

Low or Same 

1 kleiner oder gleich 

100111 

C V Z 

! \ 

ohne 


CC 

Carry Clear 

[Übertrag zurückgesetzt101001 

-C 

1 / 

Vorzeichen 


CS 

Carry Set 

I Übertrag gesetzt 

101011 

C 

1-/ 


1 

NE 

Not Equal 

1 ungleich 

101101 

-Z 

1 



EQ 

EQual 

1 gleich 

101111 

z 

1 



VC 

oVerflow Clear 

1 Überlauf zurückgesetzt11000j 

-V 

1 



VS 

oVerflow Set 

1 Überlauf gesetzt 

11001| 

V 

1 



PL 

PLus 

1 positiv 

110101 

-N 

1 



MI 

Minus 

negativ 

110111 

N 

1 



GE 

Greater or Equal| größer oder gleich 

111001 

N&V V -N&-V 

l-\ 



LT 

Less Than 

1 kleiner 

11101| 

N&-V V -N&V 

1 \ 

mit 


GT 

Greater Than 

1 größer 

|1110|N&V&-Z V -N&-V&- 

z| / 

Vorzeichen 

H— 

LE 

-1 

f Less or Equal 
i- 

1 kleiner oder gleich 
H- 

llllll 
-H-K 

Z V N&-V V -N&V 

1-/ 

-H- 





Softbreaker 1.0 

Eine softwaremäßige Interrupt-Utiiity 
für die Apple Ile 64K-Karte 

von U. Stiehl 

1984, Diskette und Manual, DM 20,- 
ISBN 3-7785-1022-3 

Produkt läuft aus. Ab 1.6.86 Diskette mit 
Quelicode für nur noch DM 20,- 

Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt \werden kön¬ 
nen. Dadurch ist es auch möglich, Siche¬ 
rungskopien von sogenannten kopierge¬ 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d.h. die ganzen 64K ein¬ 
schließlich Language Card, in nur ca, 11 Se¬ 
kunden auf einer formatierten Diskette gesi¬ 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte, nicht lic, nicht neue ROMs 

Hüthig Software Service, 

Postfach 102869, D-6900 Heidelberg 
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FACHBUCHTIP 





Jürgen Kehre) 


Apple-Assembler ^ | 
lernen 



Apple-Assembler 

lernen 

von Jürgen Kehrel 

Band 1: Einführung in die 
Assembler-Programmierung 
des 6502/65C02 

1985, 234 S., kart., DM 38,— 
ISBN 3-7785-1151-3 
Begleitdiskette zu Bd. 1: 

DM 44,- 

ISBN 3-7785-1243-9 

Band 2: Nutzung besonderer 
Apple-Eigenschaften 

1986, 276 S., kart., DM 38,— 
ISBN 3-7785-1170-X 
Begleitdiskette zu Bd. 2: 

DM 44,— 

ISBN 3-7785-1244-7 


Das zweibändige Werk „Apple 
Assembler lernen“ ist ein kompletter 
Kurs in der Assemblerprogrammie¬ 
rung des 6502 oder 65C02 auf dem 
Apple II, der nicht da aufhört, wo an¬ 
dere Einführungen auf „weiterfüh¬ 
rende Literatur“ verweisen. Starkes 



Zeileneditor mit viel Komfort und die 
Fähigkeit, Quellcode in verschiede¬ 
nen Formaten zu schreiben und zu 
lesen. Ein interaktiver Debugger und 
Simulator hilft Ihnen, eigene und 
fremde Maschinenprogramme zu 
verstehen. Mit seinen vielfältigen und 
mächtigen Möglichkeiten läßt er Sie 
hinter die Kulissen Ihres Rechners 
schauen. Sie können „sehen“, was 
abläuft, Ihre Vorstellungskraft wird 
angeregt und nicht nur einfach Ihr 
Gedächtnis strapaziert. 


Gewicht wird auf die praktische An¬ 
wendung gelegt. Deshalb gehört zum 
Kurs ein vollwertiger 2-Pass Assem¬ 
bler, der als einer von wenigen die 
erweiterten Befehle der neuen llc 
und Ile Prozessoren 65C02 verarbei¬ 
tet und der auch lange Programme 
von mehr als 1 000 Zeilen in wenigen 
Sekunden übersetzt. Zu seinen pro¬ 
fessionellen Eigenschaften gehören 
neben 14 Pseudo-Opcodes, die die 
Arbeit mit Strings und Tabellen zu 
einem Kinderspiel werden lassen, ein 


Alle Programme sind 100% kompak¬ 
ter Maschinencode, nicht einfach 
compiliertes Basic. Selbstverständ¬ 
lich lernt der Leser sämtliche Ma¬ 
schinenbefehle des Apple und die 
wichtigen Grundalgorithmen. Aber 
auch der Umgang mit den eingebau¬ 
ten ROM-Routinen wird ausführlich 
geübt. Grafik, Sound Stringverwal¬ 
tung, Fließkommaarithmetik werden 
ebenso behandelt oder das Zusam¬ 
menwirken von Applesoft und 
Assemblerprogrammen. 
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Wie man Programme 
„entschützt“ 

Ein „Hardbreaker“ für Apple 11+ und Ile 

von Willi Porten 


Dieser Artikel soll aufzeigen, wie man ein 
Programm, welches auf einem Apple 11 + 
oder Ile mit 48K läuft, entschützen kann. 
Voraussetzung hierzu ist eine 16K-Karte 
(im Ile bereits eingebaut) und eine kleine 
Schaltung. 

Dabei können mit dieser von mir entwik- 
kelten Methode fast alle RAM-residenten 
Programme zu jedem beliebigen Zeitpunkt 
unterbrochen, auf Diskette gespeichert 
und dann später genau da wieder gestartet 
werden, wo sie vorher unterbrochen wur¬ 
den. Ausgenommen sind hier Programme, 
die den Inhalt des kompletten Monitor- 
ROMs überprüfen, die glücklicherweise 
jedoch sehr selten sind. Außerdem kann 
man damit auch Grafik-Bilder aus Pro¬ 
grammen retten und dann später mit Hilfe 
anderer Programme ausdrucken. 
„RAM-resident“ bedeutet hier, daß das 
Programm, wenn es einmal im Speicher 
ist, keine anderen Programmteile nachla¬ 
den darf. In diesem Sinne sind Program¬ 
me, die mit Overlays arbeiten, nicht RAM- 
resident. 

Bevor Sie diesen Artikel weiterlesen, soll¬ 
ten Sie sich über die rechtliche Seite des 
Duplizierens von Programmen informieren 
(s. „Software und Kopierrecht“, Peeker4/ 
85, S. 6). 

1. Das Prinzip 

Wie kann man es nun schaffen, jedes be¬ 
liebige Programm zu jedem Zeitpunkt zu 
unterbrechen und dann später genau dort 
weiterlaufen zu lassen, wo es vorher un¬ 
terbrochen wurde? Nach einigem Umher¬ 
suchen stieß ich auf die Lösung dieses 
Problems: den „Nonmaskable Interrupt“ 
(NMl). 

Wenn bei der 6502-CPU ein NMI-Signal 
auftritt, so beendet der Prozessor erst ein¬ 
mal den Befehl, welcher gerade bearbeitet 
wird. Die CPU überprüft dabei nicht - wie 
beim IRQ -, ob das Interrupt-Disable-Flag 


gesetzt ist (SEI, CLI), sondern rettet in 
jedem Fall den Programmzähler und das 
Status-Register auf den Stack. Danach ruft 
der Prozessor die Routine auf, welche 
durch den NMl-Vektor $FFFA/$FFFB fest¬ 
gelegt wurde. Somit kann man, wenn man 
den NMI-Eingang der CPU benutzt, jedes 
Programm anhalten und sich merken, wo 
genau und mit welchen Register-Inhalten 
das Programm unterbrochen wurde. Die¬ 
ses Verfahren hat im Gegensatz zum Pro¬ 
grammabbruch mittels des Reset-Vektors 
(Softbreaker) den Vorzug, daß sich der 
Programmzähler nach einem NMl auf dem 
Stack befindet. Wenn jetzt der gesamte 
Programmspeicher auf Diskette gerettet 
wird, kann später dieses Programm an ge¬ 
nau der gleichen Stelle, an der es unter¬ 
brochen wurde, fortgesetzt werden. 


2. Die zusätzliche Hardware 

Um nun diesen NMl benutzen zu können, 
ist es notwendig, eine kleine Zusatzschal¬ 
tung im Wert von ca. DM 3,- aufzubauen, 
was aber vollkommen unkompliziert ist. 
Abb. 1 zeigt den entsprechenden Schalt¬ 
plan. 

Der Schaltungsaufwand beschränkt sich 
auf zwei Teile: 

Zum einen muß der mechanische Taster 
entprellt werden, um nicht mehrere NMI- 
Signale bei einem Tastendruck zu erzeu¬ 
gen. Dies wird in gewohnter Weise durch 
die beiden rückgekoppelten NAND-Glie¬ 
der erreicht. Zum anderen muß der NMI- 
Pegel durch den hochohmigen Ausgang 
vom Bus abgetrennt werden, um nicht in 
Konflikt mit anderen Peripheriegeräten zu 
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kommenn, die ebenfalls NMI-Impulse er¬ 
zeugen. 

Die Stromversorgung und der NMI-Ein- 
gang können entweder direkt auf dem 
Motherboard oder einer beliebigen Inter- 
face-Karte abgegriffen werden. Wer darauf 
nicht löten will (um z.B. den Garantiean¬ 
spruch nicht zu verlieren), sollte sich eine 
Experimentierkarte für den Apple kaufen. 
Ansonsten kann der Aufbau auf einer klei¬ 
nen Lochraster-Platine erfolgen. 

3. Das Programm HARDBREAKER 

Das Programmsystem HARDBREAKER 
funktioniert nun wie folgt (s.a. Kurzanlei¬ 
tung): 

Nach dem Booten der HARDBREAKER- 
Diskette (auf welcher sich die Programme 
„HARDBREAKER“, „HARDBREAKER.IN- 
IT“, „SAVEMEM“, „NMI", „LCMOVE“ 
und „GEN.EXEC“ befinden) wird das Pro¬ 
gramm HARDBREAKER gestartet. Dann 
wählt man aus dem Menü Punkt „1 “ aus. 
Der daraufhin ausgeführte EXEC-File ko¬ 
piert nun das Applesoft-BASIC und den 
Monitor in die Language-Card. Nun verän¬ 
dert er den NMI-Vektor, der danach auf 
eine Routine zeigt, welche die Bank 1 der 
Language-Card einschaltet und nach 
$D000, also der NMI-Routine, springt. Da 
diese Routine bei $FCCA liegt, wird so die 
Kassettenrekorder-Routine des Monitors 
unbrauchbar. 

Danach sollte die Language-Card blockiert 
werden, da einige Programme die Karte 
auf jeden Fall benutzen, wenn sie vorhan¬ 
den ist. Dies ist aber von uns nicht er¬ 
wünscht, da diese Programme dann oft 
unseren NMI-Vektor und die NMI-Routine 
zerstören. Deshalb sollte die Language- 
Card hardwaremäßig geschützt werden. 
Ohne diese Blockierung der Language- 
Card schaltet z. B. das Apple-DOS-S.S di¬ 
rekt nach dem Booten die Language-Karte 
ab und das Monitor-ROM ein. Wenn aber 
das ROM eingeschaltet ist, kann der Hard- 
breaker nicht mehr funktionieren. Abb. 1 
zeigt die Schaltung zum Schutz der 
Language-Card, die nur den Device-Se- 
lect der Language-Card abschaltet, so daß 
die $C08x-Softswitches unwirksam wer¬ 
den. Beim BASIS 108 ist diese Schaltung 
nicht nötig, da der BASIS einen zusätzli¬ 
chen Softswitch ($COOF) hat, um $C08x 
unwirksam zu schalten. Wer auf seiner 
Language-Card nicht löten möchte, dem 
sei gesagt, daß dieser zusätzliche Auf¬ 
wand für viele Programme nicht notwendig 
ist. 

Als nächsten Schritt nimmt man die 
HARDBREAKER-Diskette aus dem Lauf¬ 
werk und bootet durch Betätigung irgend¬ 
einer Taste das Programm, welches ent- 
schützt werden soll. Nachdem man sicher 


^ hARdwARE 




Abb. 2. Experimentierplatine 


ist, daß das komplette Programm geladen 
wurde, nimmt man die Diskette aus dem 
Laufwerk, schiebt wieder die HARDBREA¬ 
KER-Diskette hinein (auf der noch minde¬ 
stens 203 Sektoren frei sein müssen), legt 
den Schalter der Language-Card von 
Blockiert auf Aktiv um und drückt den 
NMI-Taster. Dadurch wird die NMI-Routi¬ 
ne ausgeführt, welche nun, nachdem die 
Register A, X, Y und der Stackpointer ge¬ 
rettet wurden, die Bereiche von $0000 bis 
$0CFF und $9600 bis $BFFF in der 
Language-Card abspeichert. 

Die Diskette wird nun gebootet, und im 
Menü des HARDBREAKER-Programms 
wählt man „2“ (SAVEMEM) aus. Dieser 
EXEC-File legt den 48K-Speicher des Pro¬ 
grammes als FILE.1 bis FILE.4 ab, indem 
er die durch das DOS zerstörten Bereiche 
aus der 16K-Karte nimmt. Danach wird 
das Programm GEN.EXEC gestartet, in 
welchem abgefragt wird, wie das gerettete 
Programm heißen soll. 

Jetzt erfolgt eine Abfrage, auf welcher 
Bildschirmseite das Programm unterbro¬ 
chen wurde. Falls man dies nicht genau 
weiß, probiert man einfach eine Option 
aus. Sollte das Programm auf einer exoti¬ 
schen Bildschirmseite starten (z.B. Lores- 
Grafik mit 4 Zeilen Text), so kann man 
GEN.EXEC leicht modifizieren. Hat man 
falsch gewählt, kann das Programm mit 
RUN GEN.EXEC neu gestartet werden. 
Wenn das Programm dann mit einer Feh¬ 
lermeldung endet, so hat dies nichts zu 
sagen, da die Files von FILE.x schon beim 
vorherigen Male in NAME.x umbenannt 
wurden. Wenn GEN.EXEC beendet wur¬ 
de, ist das gerettete Programm in den Files 
Name.1 bis Name.4 abgespeichert. Mit 
„EXEC Name“ kann es jederzeit gestartet 
werden. 


Kurzhinweise 

1. Zweck: 

Hard- und Software zum „Entschützen“ 
von Programmen 

2. Konfiguration; 

IH- (mit LC) oder Ile, Zusatzschaltung: 
DOS 3.3 

3. Test: 

siehe Kurzanleitung 

4. Sammeldisk: 

HARDBREAKER 

(Applesoft-Startprogramm) 

GEN.EXEC 

(Applesoft-Programm zur Generierung der 
EXEC-Startdatei) 

T.NMI 

T.LCMOVE 

(Big-Mac-Quelltexte) 

NMI 

LCMOVE 

(Maschinenprogramme) 

HARDBREAKER.INIT 

HARDBREAKER.INIT.BASIS (für BASIS 

108) 

SAVEMEM 

(EXEC-Dateien) 
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Kurzanleitung 

1. Diskette mit HARDBREAKER als HELLO-Programm initialisieren. 

2. Folgende Dateien zusätzlich auf diese Diskette kopieren: 

a) GEN.EXEC 

b) HARDBREAKER.INIT 

{bei einem BASIS 108 die Datei HARDBREAKER.INIT.BASIS 
kopieren und in HARDBREAKER.INIT umbenennen) 

c) SAVEMEM 

d) NMI 

e) LCMOVE 

3. HARDBREAKER-Diskette booten und <1> aus Menü wählen. 

4. Programmdiskette booten. 

5. HARDBREAKER-Diskette einlegen. 

6. NMI-Schalter betätigen und dann <2> aus Menü wählen. 

7. Gewünschten Namen eingeben. 

Das "entschützte" Programm wird dann durch: 

EXEC Name 
gestartet. 


HARDBREAKER 


100 HIMEM; 3328 

110 REM ******************* 

120 REM * HARDBREAKER * 

130 REM * * 

140 REM * W. Porten, 1985 * 

150 REM ******************* 

160 D$ = CHR$ (13) + CHR$ (4) 

170 HOME : PRINT "WELCHES PROGRAMM SOLL GESTARTET WERDEN?" 
180 VTAB 5; PRINT "<1> HARDBREAKER,INIT" 

190 PRINT : PRINT "<2> SAVEMEM": PRINT 
200 HTAB 2; GET N$; IF N$ = "2" THEN 230 
210 IF N$ < > "1" THEN 200 
220 PRINT D$"EXECHARDBREAKER.INIT": END 
230 PRINT D$"EXECSAVEMEM": END 


GEN.EXEC 


100 REM ******************* 

110 REM * GEN.EXEC * 

120 REM * * 

130 REM * W Porten, 1985 * 

140 REM ******************* 

150 D$ = CHR$ (13) + CHR$ (4) 

160 HOME 

170 INPUT "NAME DES PROGRAMMES: >";N$: IF N$ = "" THEN 160 
180 IF LEN (N$) > 20 THEN PRINT ; PRINT "DER NAME DARF 

HOECHSTENS 20 ZEICHEN"; PRINT "HABEN!": PRINT : GOTO 170 
190 A = ASC ( LEFT$ (N$,l)): IF A < 65 OR A > 90 THEN PRINT : 
PRINT "DER NAME MUSS MIT EINEM BUCHSTABEN": PRINT "BEGINNEN 
PRINT : GOTO 170 

200 PRINT : PRINT "AUF WELCHEM SCREEN SOLL DAS PROGRAMM" 

210 PRINT : PRINT "GESTARTET WERDEN?" 

220 PRINT : PRINT : PRINT "<1> TEXT ($0400-$07FF)" 


230 PRINT : 

: PRINT 

"<2> 

TEXT2 

($0800-$0BFF)" 

240 PRINT ; 

: PRINT 

"<3> 

HGR 

{$2000-$3FFF)" 

250 PRINT : 

: PRINT 

"<4> 

HGR2 

($4000-$5FFF)" 


260 PRINT : PRINT 
270 PRINT ">": 

280 GET NU$:NU = VAL {NU$): IF NU < 1 OR NU > 4 THEN 280 
290 PRINT NU 

300 PRINT D$"0PEN"N$: PRINT D$"WRITE"N$ 

310 PRINT "NOMONCIO" 

320 PRINT "CALL-151" 

330 PRINT "C081 C081" 

340 PRINT "F800<F800.FFFFM" 

350 ON NU GOSUB 460,470,480,490 
360 PRINT "BL0AD"N$".2" 

370 PRINT "BL0AD"N$".3" 

380 PRINT "BL0AD"N$".4" 

390 PRINT "C08B C08B" 

400 PRINT "BL0AD"N$".l" 

410 PRINT "BLOADLCMOVE,A$F700" 

420 PRINT "F700G" 

430 PRINT D$"CL0SE"N$ 

440 FOR I = 1 TO 4: PRINT D$"RENAMEFILE,"I","N$","I: NEXT I 
450 END 
460 RETURN 

470 PRINT "C055": RETURN 

480 PRINT "C054 C057 C052 C050": RETURN 

490 PRINT "C055 C057 C052 C050": RETURN 


NMI 

BSAVE NMI. A$D000, L$00B5 


1 ******************* 

2 * NMI * 

3 * * 

4 * W- Porten, 1985 * 

5 ******************* 

6 * 

7 * Dieses Programm rettet Teile 

8 * des 48K-Bereiches in die 

9 * Language-Card und bootet dann 



10 

* 




11 


ORG 

$D000 


12 





13 

START2 

EQU 

$F700 


14 

BOOT 

EQU 

$FA62 


15 

LDA 

EQU 

$AD 


16 





17 

* Bank 

1 schreibfähig schalten 


18 




D000: 2C 8B C0 

19 


BIT 

$C08B 

D003: 2C 8B C0 

20 


BIT 

$C08B 


21 





22 

* Register retten 


23 




D006: 8D ID Dl 

24 


STA 

ASAVE 

D009: 8E lE Dl 

25 


STX 

XSAVE 

D00C: 8C IF Dl 

26 


STY 

YSAVE 

D00F: BA 

27 


TSX 


D010: 8E 20 Dl 

28 


STX 

SSAVE 


29 





30 

* Programm kopieren und starten 


31 




D013: A2 00 

32 


LDX 

#0 

D015: BD 21 D0 

33 

LOOP 

LDA 

WEITER,X 

D018: 9D 00 F7 

34 


STA 

START2,X 

D01B: E8 

35 


INX 


D01C: D0 F7 

36 


BNE 

LOOP 

D01E: 4C 00 F7 

37 


JMP 

START2 


38 





39 

* Jetzt 

geht 

es im gemeinsamen 


40 

* Bereich von 

Bank 0 und Bank 1 


41 

* der Language-Card weiter 


42 





43 

* TRANSFER D000<0000.0CFF 


44 





45 

WEITER 




46 





47 

OFFSET 

EQU 

START2-WEITER 


48 




D021; AD 00 00 

49 

LOAD 

DFB 

LDA,0,0 *LDA $( 


50 

* 




51 

* notwendig. 

da sonst der 


52 

* 2-Byte-Zero 

-Page-Befehl vom 


53 

* Assembler generiert wird 


54 

* 



D024: 8D 00 D0 

55 

STORE 

STA 

$D000 

D027: EE 01 F7 

56 


INC 

LOAD+l+OFFSET 

D02A: EE 04 F7 

57 


INC 

STORE+l+OFFSET 

D02D: D0 F2 

58 


BNE 

LOAD 

D02F; EE 02 F7 

59 


INC 

L0AD+2+0FFSET 

D032: EE 05 F7 

60 


INC 

ST0RE+2+0FFSET 

D035: AD 02 F7 

61 


LDA 

LOAD+2+OFFSET 

D038: C9 0D 

62 


CMP 

#$0D 

D03A: D0 E5 

63 


BNE 

LOAD 


64 





65 

* TRANSFER DD00<9600.98FF 


66 




D03C: AD 00 96 

67 

LOADl 

LDA 

$9600 

D03F: 8D 00 DD 

68 

STOREl 

STA 

$DD00 

D042; EE IC F7 

69 


INC 

LOADl+l+OFFSET 

D045; EE IF F7 

70 


INC 

STOREl+l+OFFSET 

D048; D0 F2 

71 


BNE 

LOADl 

D04A: EE ID F7 

72 


INC 

L0AD1+2+0FFSET 

D04D: EE 20 F7 

73 


INC 

ST0RE1+2+0FFSET 

D050: AD ID F7 

74 


LDA 

L0AD1+2+0FFSET 

D053: C9 99 

75 


CMP 

t$99 

D055: D0 E5 

76 


BNE 

LOADl 


77 





78 

* Bank 

0 schreibfähig schalten 


79 




D057: 2C 83 C0 

80 


BIT 

$C083 

D05A: 2C 83 C0 

81 


BIT 

$C083 


82 





83 

* TRANSFER D000<9900,BFFF 


84 
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hARdwARE 







14 


ORG 

$F700 





15 








16 

STA 

EQU 

$8D 





17 








18 








19 

* TRANSFER 0000<D000,DCFF 





20 




F700: 

AD 

00 

D0 

21 

LOAD 

LDA 

$D000 

F703: 

8D 

00 

00 

22 

STORE 

DFB 

STA,0,0 ¥STA $0000 





23 

* notwendig. 

da sonst der 





24 

* 2-Byte- 

-Zero 

-Page-Befehl vom 





25 

* Assembler generiert wird 





26 

* 



F706 

EE 

01 

F7 

27 


INC 

LOAD-Hl 

F709 

EE 

04 

F7 

28 


INC 

ST0RE-+-1 

F70C 

D0 

F2 


29 


BNE 

LOAD 

F70E 

EE 

02 

F7 

30 


INC 

LOAD-t-2 

F711 

EE 

05 

F7 

31 


INC 

STORE+2 

F714 

AD 

02 

F7 

32 


LDA 

LOAD-f-B 

F717 

C9 

DD 


33 


CMP 

t$DD 

F719 

D0 

E5 


34 


BNE 

LOAD 





35 








36 

* TRANSFER 9600<DD00.DFFF 





37 




F71B 

AD 

00 

DD 

38 

LOADl 

LDA 

$DD00 

F71E 

8D 

00 

96 

39 

STOREl 

STA 

$9600 

F721 

EE 

IC 

F7 

40 


INC 

LOAD1+1 

F724 

EE 

IF 

F7 

41 


INC 

STOREl+1 

F727 

D0 

F2 


42 


BNE 

LOADl 

F729 

EE 

ID 

F7 

43 


INC 

LOAD1+2 

F72C 

EE 

20 

F7 

44 


INC 

STOREl+2 

F72F 

AD 

ID 

F7 

45 


LDA 

LOAD1+2 

F732 

C9 

E0 


46 


CMP 

#$E0 

F734 

D0 

E5 


47 


BNE 

LOADl 





48 








49 

* Bank 0 schreibfähig schalten 





50 




F736 

: 2C 

83 

C0 

51 


BIT 

$C083 

F739 

: 2C 

83 

C0 

52 


BIT 

$C083 





53 








54 

* TRANSFER 9900<D000.F6FF 





55 




F73C 

: AD 

FB 

F7 

56 


LDA 

ESAVE 

F73F 

: 8D 

00 

E0 

57 


STA 

$E000 





58 




F742 

AD 

00 

D0 

59 

L0AD2 

LDA 

$D000 

F745 

8D 

00 

99 

60 

ST0RE2 

STA 

$9900 

F748 

EE 

43 

F7 

61 


INC 

L0AD2+1 

F74B 

EE 

46 

F7 

62 


INC 

ST0RE2+1 

F74E 

D0 

F2 


63 


BNE 

L0AD2 

F750 

EE 

44 

F7 

64 


INC 

L0AD2+2 

F753 

EE 

47 

F7 

65 


INC 

ST0RE2+2 

F756 

AD 

44 

F7 

66 


LDA 

L0AD2+2 

F759 

C9 

F7 


67 


CMP 

#$F7 

F75B 

D0 

E5 


68 


BNE 

L0AD2 





69 








70 

* Monitor patchen; FE0F: BIT $C082 





71 




F75D 

A9 

2C 


72 


LDA 

#$2C 

F75F 

8D 

0F 

FE 

73 


STA 

$FE0F 

F762 

A9 

82 


74 


LDA 

4$82 

F764 

8D 

10 

FE 

75 


STA 

$FE10 

F767 

A9 

C0 


76 


LDA 

#$C0 

F769 

8D 

11 

FE 

77 


STA 

$FE11 





78 




F76C 

; AE 

FF 

F7 

79 


LDX 

SSAVE 

F76F 

; 9A 



80 


TXS 


F770 

: AG 

FE 

F7 

81 


LDY 

YSAVE 

F773 

: AE 

FD 

F7 

82 


LDX 

XSAVE 

F776 

: AD 

FC 

F7 

83 


LDA 

ASAVE 





84 




F779 

: 4C 

0F 

FE 

85 


JMP 

$FE0F 





86 








87 

* in den 

gepatchten Monitor 





88 

^ springen: 






89 

* im RAM $FE0F: BIT $C082 





90 

* im Rom 

$FE12: RETI 





91 








92 

ESAVE 

EQÖ 

$F7FB 





93 








94 

ASAVE 

EQU 

$F7FC 





95 

XSAVE 

EQU 

$F7FD 





96 

YSAVE 

EQU 

$F7FE 





97 

SSAVE 

EQU 

$F7FF 

124 Bytes 







D05D: 

AD 

00 99 

85 

L0AD2 LDA 

$9900 

D060: 

8D 

00 D0 

86 

ST0RE2 STA 

$D000 

D063: 

EE 

3D F7 

87 

INC 

L0AD2+1+0FFSET 

D066: 

EE 

40 F7 

88 

INC 

ST0RE2+1+0FFSET 

D069: 

D0 

F2 

89 

BNE 

L0AD2 

D06B: 

EE 

3E F7 

90 

INC 

L0AD2+2+0FFSET 

D06E: 

EE 

41 F7 

91 

INC 

ST0RE2+2+0FFSET 

D071: 

AD 

3E F7 

92 

LDA 

L0AD2+2+0FFSET 

D074: 

C9 

C0 

93 

CMP 

t$C0 

D076: 

D0 

E5 

94 

BNE 

L0AD2 




95 






96 

m ($E000) retten, da dies, falls 




97 

# mit Diversi- 

-DOS gearbeitet wird. 




98 

* zerstört wird 




99 



D078: 

AD 

00 E0 

100 

LDA 

$E000 

D07B 

8D 

FB F7 

101 

STA 

ESAVE+OFFSET 




102 






103 

* im LC-Monitor den NMI-Vektor 




104 

* wieder hersteilen 




105 



D07E 

A9 

FB 

106 

LDA 

+$FB 

D080 

8D 

FA FF 

107 

STA 

$FFFA 

D083 

A9 

03 

108 

LDA 

#$03 

D085 

8D 

FB FF 

109 

STA 

$FFFB 




110 






111 

# auf Kaltstart schalten 




112 



D088 

8D 

F3 03 

113 

STA 

$03F3 

D08B 

8D 

F4 03 

114 

STA 

$03F4 




115 



D08E 

A9 

4C 

116 

LDA 

#$4C 

D090 

8D 

FB 03 

117 

STA 

$03FB 

D093 

A9 

65 

118 

LDA 

#$65 

D095 

8D 

FC 03 

119 

STA 

$03FC 

D098 

A9 

FF 

120 

LDA 

#$FF 

D09A 

8D 

FD 03 

121 

STA 

$03FD 




122 






123 

* Monitor patchen: FE14: BIT $C082 




124 



D09D 

: A9 

2C 

125 

LDA 

#$2C 

D09F 

: 8D 

14 FE 

126 

STA 

$FE14 

D0A2 

: A9 

82 

127 

LDA 

♦$82 

D0A4 

: 8D 

15 FE 

128 

STA 

$FE15 

D0A7 

: A9 

C0 

129 

LDA 

#$C0 

D0A9 

: 8D 

16 FE 

130 

STA 

$FE16 




131 



D0AC 

A9 

FA 

132 

LDA 

#>B00T 

D0AE 

48 


133 

PHA 


D0AF 

A9 

62 

134 

LDA 

#<B00T 

D0B1 

48 


135 

PHA 





136 



D0B2 

: 4C 

14 FE 

137 

JMP 

$FE14 




138 






139 

* in den gepatchten Monitor 




140 

* springen: 





141 

* im RAM $FE14: BIT $C082 




142 

# im ROM $FE17: RET 




143 






144 

WEND DS 

$100-WEND+WEITER-5 




145 






146 

ESAVE DS 

1 




147 

ASAVE DS 

1 




148 

XSAVE DS 

1 




149 

YSAVE DS 

1 




150 

SSAVE DS 

1 

289 Bytes 




LCMOVE 




BSAVE LCMOVE, A$F700, L$007G 




1 





2 

* LCMOVE 

* 




3 

* 

* 




4 

* W. Porten, 

1985 * 




5 





6 

4!« 





7 

* Dieses Programm kopiert die in 




8 

* die LC geretteten Teile 




9 

* zurück in den 48K-Bereich und 




10 

* startet dann das gerettete 




11 

# Programm da 

L, wo es unterbrochen 




12 

* wurde. 





13 

* 
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HARDBREAKER.INIT 


NOMONC.1,0 
CALL-151 
C081 C081 
D000<D000.FFFFM 
FFFA:CA FC 

FCC9:60 2C 8B C0 4C 00 D0 

C089 C089 

BLOADNMI,A$D000 

C080 

3D0G 

NEW 

IHOME:?"HARDBREAKER":?"VON W. PORTEN"i?"DEN LC-SCHALTER 
AUF BLOCKIERT STELLEN, 

"2?"DIE ZU ENTSCHUETZENDE DISK":? 

"EINLEGEN UND EINE TASTE DRUECKEN!" 

3NEW 

RUN 

F0RI=1T0129:I=PEEK(-16384):NEXT 
PR#6 


HARDBREAKERJNIT.BASIS 

Dieses Programm sollte anstelle von HARDBREAKER eingegeben 
werden, falls Sie einen BASIS 108 mit APPLE 11+ Autostart- 
Moni tor-ROM besitzen. 


NOM0NC,I,0 
CALL-151 
C081 C081 
D000<D000.FFFFM 
FFFA:CA FC 

FCC9:60 8D 0E C0 2C 8B C0 4C 00 D0 

C089 C089 

BLOADNMI,A$D000 

C080 

C00F:00 

3D0G 

NEW 

IHOME:?"HARDBREAKER {BASIS 108)":?"VON W, PORTEN":? 
2?"DIE LANGUAGE CARD IST BLOCKIERT.";?:?"BITTE DIE ZU 
ENTSCHUETZENDE DISK";?"EINLEGEN UND EINE TASTE DRUECKEN! 
3NEW 
RUN 

F0RI=1T0129:I=PEEK(-16384):NEXT 
PR#6 


Damit der Hardbreaker auch auf einem BASIS 108 mit BASIS-Monitor— 
ROM läuft, sind folgende Änderungen vorzunehmen: 

- In NMI 

Zeile 126: STA $FE15 statt STA $FE14 
Zeile 128: STA $FE16 statt STA $FE15 
Zeile 130: STA $FE17 statt STA $FE16 
Zeile 137: JMP $FE15 statt JMP $FE14 
-In LCMOVE; 

Zeile 73: STA $FE10 statt STA $FE0F 
Zeile 75: STA $FE11 statt STA $FE10 
Zeile 77: STA $FE12 statt STA $FE11 
Zeile 85: JMP $FE10 statt JMP $FE0F 

- In HARDBREAKER.INIT.BASIS: 

FFFA:90 FB statt FFFA:CA FC 
FB90;8D 0E C0 2C 8B C0 4C 00 D0 statt 
FCC9:60 8D 0E C0 2C 8B C0 4C 00 D0 


SAVEMEM 


N0M0NC,I,O 

CALL-151 

BSAVEFILE.2,A$D00,L$5300 
BSAVEFILE.3,A$6000,L$3600 
C088 

BSAVEFILE.1,A$D000,L$1000 
C080 

BSAVEFILE.4,A$D000,L$2800 

C082 

FP 

RUNGEN.EXEC 


Peeker-Sammel- 
disketten 
#20 und #21 


Disk*20 

(UCSD-Apple-128K-Pascal-1.2-Dis- 
kette; Heft 8/1986; Achtung; Um¬ 
fangreiches Softwarepaket, deshalb 
Einzelpreis DM 48,-; Fortsetzungs- 
preis DM 38,-; (wird nicht automa¬ 
tisch an Fortsetzungsbezieher ver¬ 
schickt) 

(1) = Zweck; (2) = Heft/Seitenzahi; 

(3) = Gerätekonfiguration; (4) = Be¬ 
triebssystem; (5) = Programmstart; 
(6) = Sonstiges 

PICEDIT: 

SYSTEM.MISCINFO 

SYSTEMXHARSET 

ASCII.FONT 

GERMAN.FONT 

MATH.FONT 

GREECEJONT 

SUPER.SUB.FONT 

MENU.GRAF 

PRINTER.INFO 

EPSON 

IMAGEWRITER 

SYSTEM.ATTACH 

CRUNCHER.CODE 

SYSTEM.STARTUP 

SYSTEM.LIBRARY 

ARROWS.KEYS 

DESIGNER.CODE 

(1) PIC-EDIT von Jürgen Geiß ist das 
Gegenstück zum Turtle-Graphics-Li- 
brary-Paket, das bekanntlich über 
den Hüthig Software Service für DM 
98,- erhältlich Ist. PIC-EDIT ist ein 
universeller Grafik-Editor, der dem 
Macpaint-Programm nachempfun¬ 
den ist und über ungewöhnlich lei¬ 
stungsfähige Befehle verfügt: (2) 
Heft 8/86, S. 6; (3) Apple llc oder 
Ile mit erweiterter 80-Zeichenkarte; 

(4) UCSD-Apple-Pascal 1.2; (5) 
Auf der Sammeldiskette +20 befin¬ 
den sich die obenstehenden Dateien 
außer SYSTEM.APPLE und SY¬ 
STEM.PASCAL, die Sie aus urheber¬ 
rechtlichen Gründen selbst auf hier¬ 
für reservierte Dummy-Files kopie¬ 
ren müssen. Dabei muß es sich um 
128K-Pascal-1.2-Files handeln. 

Die Diskette läuft sofort mit Epson- 
Druckern. Für den Imagewriter muß 
im Filer die Datei IMAGEWRITER mit 
den Transfer-Befehl auf PRINTER. 
INFO 1 kopiert werden. 

Nach dem Kopieren der zwei Pascal- 
Systemdateien kann die Diskette di¬ 
rekt gebootet werden. 


Disk +21 

(DOS-3.3-Diskette: Einzelpreis DM 
28,-: Fortsetzungspreis DM 20,-) 

Heft 8/1986 

A 005 LOGIK 
T004 MLOGIC 

Übungsprogramme zur Aussagenlo- 
glk; 8/86, S. 32. 

RUN LOGIK (von DOS 3.3) 

MLOGIK muß zunächst mit APDOS auf 
MBASIC-Diskette konvertiert werden. 
T019T.NETZWERK 
B 003 NETZWERK 
Vernetzung von Apple-Rechnern; 
8/86, S. 50. 

BRUN NETZWERK (von DOS 3.3) 
T006 T.UNIFORMAT 
B 002 UNIFORMAT 
Formatierbefehl für Unldisk; 8/86, 

S. 56. 

BLOAD UNIFORMAT; CALL 768 

Heft 9/1986 

A 003 HARDBREAKER 

A006 GEN.EXEC 

T 009 T.NMI 

B 003 NMI 

T007 T.LCMOVE 

B002 HARDBREAKER.INIT 

T003 HARDBREAKER.INIT.BASIS 

T 002 SAVEMEM 

NMI-Interrupt-Routinen für entspre¬ 
chende Experimentierplatine, 9/86, 

S. 34. 

RÜN HARDBREAKER (von DOS 3.3) 
T052 FILER.PAS 

Turbo-Pascal-Dateikopierprogramm, 
9/86, S. 40. Muß zunächst mit 
APDOS auf Turbo-Disk konvertiert 
und dann compiliert werden. 

T026 DREIECK.TEXT 
Dreiecksberechnung in UCSD-Pas- 
cal, 9/86, S. 40. Muß zunächst mit 
GETPAS auf UCSD-Disk konvertiert 
und dann compiliert werden, 

T024 STRINGUTILS.I 
T013 STRINGDEMOS.P 
Kyan-Pascal-String-Include-Datei, 
9/86, S. 50. Muß erst mit CONVERT 
auf ProDOS-Disk konvertiert und 
dann compiliert/assembliert werden. 
A 002 EINZEL.TASC 
B 021 EINZELRUNTIME 
B 061 EINZEL.OBJ 
A056 EINZELKALK 
T002 EINZELKONST 
T006 EINZEL.KLEIN 
T006 EINZELGROSS 
Bucheinzelkalkulation, 9/86, S. 56. 
RUN EINZEL.TASC (von DOS 3.3) 

A 003 FUNKTIONEN START 
A011 FUNKTIONEN ANLEITUNG 
B 002 FUNKTIONEN EXC 
A 057 FUNKTIONEN 
Funktionsplotter für Apple II+, S. 62. 
RUN FUNKTIONEN START 
(von DOS 3.3) 
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ProDOS-Editor 1.0 

Applesoft-Editor 

unter ProDOS-Betriebssystem 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1024-X 

Mit diesem neuen Editor - übrigens 
der bislang einzige deutsche Pro¬ 
DOS-Editor - wird dem Applesoft- 
Programmierer ein Werkzeug zur ef¬ 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle¬ 
samt unter ProDOS nicht mehr lauf¬ 
fähig. 

Unter anderem sind folgende Fea¬ 
tures implementiert worden: 

- Zeilenorientierter Editor mit jedem er¬ 
denklichen Redigierkomfort (Insert, 
Delete, Tab, Restore, freie Cursorbe¬ 
wegung in allen vier Richtungen, Einga¬ 
be von CtrI-Buchstaben in Applesoft- 
Zeilen usw.) 

- Renumber (Zeilen-Umnumeherung) 

- Xreference (sortierte Variablenliste) 

- Suchen von Tokens, Strings und Varia¬ 
blen 

- dezimale und hexadezimale Umrech¬ 
nungen 

- Ausführung von Monitorbefehlen aus 
dem Editor heraus 

- Listen des Applesoft-Programms in 
speicherinterner Form als Flex-Dump 

- Suchen von Hex-Folgen, Adressen 

oder Speicherstellen im gesamten 
RAM-Bereich einschließlich der 
Language-Card \ 

- frei definierbare Tastatur-Macrobefehle\ 

Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor¬ 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 

Gerätevoraussetzung: Apple IH-, Ile 
oder llc, 40 Zeichen/Zeile 

Hinweis: Der Applesoft-Editor für 
DOS 3.3 befindet sich auf Sammel¬ 
disk # 16 für Fortsetzungsbezieher. 
Siehe Peeker 4/86, S. 13. 

Hüthig Software Service, 

Postfach 10 28 69, 

D-6900 Heideiberg 


Preiswerte Begleitdisketten 




Begleitdiskette 
zu „ProDOS für Aufsteiger“ 
Band 1 





Bd. 1: DM 28,-; Bd. 2: DM 28,- 



Begleltdiskette 
zu „Apple Assembler“ 




DM 28,- 



Begleitdlskette 
zu „Apple DOS 3.3‘ 




DM 28,- (Neue Diskette für 
3. Aufl.) 

Hüthig Software Service 

Postfach 102869 • 6900 Heidelberg 



APOU.O//(48K) + UHF-Mod. + Gr/Kl VC 

APOLLO//(48K) + Disk II F + Contr. + 12"-Monito 
APOLLO//A (48K) + Gr/Kl + 15er-Tastatur vollbe 
APOLLO//A (48K) + Disk II F + Contr. +12"-Mon. 

APOLLO// ASKF (48K) vollbest. + gepr. Sep., Keyboard + Gr/Kl + 
15er-Blook mit Funkt.-Tasten im „IBM-Iook like" Kunststoff-Gehäuse I 
APOLLO// ASKF (48K) w.o. + Disk II F + Contr. 1.' 

Apollo 11ASFK (48K) w.o.+2xDisk ll-F+Contr.+12” Mon. I.i 

Aufpreis f.o. Systeme von 48K zu 64K 
Aufpreis von 48K zu 64K+Z80 CPU 

Apollo Ile (64K) vollbest, und geprüft 

Apollo Ile (64K)-F80Z/24Z-Karte gepr. 

Apollo Ile (128K)-F80Z/24Z-Karte geprüft 
Applle Ile (64 K)+15er-Tastatur vollbestückt 

Apollo Ile ASKF (64 K) vollbestückt und geprüft ab I 

Apollo Ile (64K)+Dlsk II F-H2" Monitor 



APPLESOFT + Turorial + Reference Manual engl. 

APPLE-DOS 3.3 Manual engl. = 25.—/Handbuch dt. 
APPLE-Pascal Reference + Operating Manual engl. 
APPLE-Pascal Reference Hb. dt. 

APPLE-Pascal Language Hb. dt. 

APPLEII-Pascal Hb. dt. (te-wi) 

APPLE-Fortran Manual engl. 

CP/M-Softcard Vol. I + II, Manual engl. 

APPLE Il+Ile-Anwenderhandbuch deutsch (tt 


IN FX 85F/T-I-, 8bit/parallel 160 Z/S. NLQ + IBM Komp. 

EPSON FX 105+, 8bit/parallel 15” sonst w.o. 

EPSON Traktoraufsatz für FX 80 + FX 85 
APPLE/EPSON-Drucker Graphic-Interface + Kabel 
MX 80/82, FX/RX 80, FX 85 Spezialfarbband-Kassette 



3M-Scotch 5'/4" RQssig-RelnIgungsset (2 Disk.) zv 
5'/4" Disketten-Archivbox für 10 DIsks (1 St./10 St.) 

5'/4" Disk-Karteikasten Kunststoff (ca. 80 Disk) 

5'/4" Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 
5'/." Disk-KK.Rauchglas, abschlieBb. (f. ca. 80-100 Disks) 

2000 Bl. Tabpapier (24 cm x 12" einf.) weiB oder grün/welB perf. 
4000 EL-Aufkl. doppeln (107 x 36 mm auf 240 x 12" perf. Trägerp.) 
4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12" perf. Träg.) 
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Filer für CP/M 

Ein Dateikopierprogramm in Turbo-Pascai 


von Gerhard Runge 


1. Dateien-Backup mit einem Lauf¬ 
werk 

Auch wer unter CP/M arbeitet, steht hin 
und wieder vor dem Problem, Dateien mit 
nur einem Diskettenlaufwerk kopieren zu 
müssen. Sei es, daß man nur ein Laufwerk 
besitzt, weil man z.B. noch eine RAM-Disk 
hat, oder daß das zweite Laufwerk gerade 
in Reparatur ist. Das zum CP/M-System 
gehörige Kopierprogramm ,PIP.COM‘ ist 
hier leider völlig überfordert. Von kleinen 
Dateien kann man auch mit Hilfe des Pro¬ 
gramms ,DDT.COM‘ und des SAVE-Be- 
fehls eine Sicherungskopie anfertigen, 
aber Dateien, die größer sind als die TPA, 
bleiben unkopierbar. Alles in allem ist die¬ 
se Methode sehr behelfsmäßig und 
mühsam. 

Läßt sich das Kopierproblem bei einem zur 
Reparatur geschickten Laufwerk in der Re¬ 
gel durch einfaches Warten erledigen, so 
zwingt der Umgang mit zwei verschiede¬ 
nen Laufwerken zum Nachdenken. Dieser 
Fall dürfte gerade bei Benutzern von Com¬ 
putern der Appie-ll-Familie eher die Regel 
als die Ausnahme sein. Oft will man aus 
Kompatibilitätsgründen sein altes 35- 
Spur-Laufwerk als Bootlaufwerk behalten, 
aber auf ein modernes doppelseitiges 
Laufwerk nicht verzichten. Man kann bei 
unterschiedlichen Laufwerken wohl wie¬ 
der mit ,PIP‘ kopieren, jedoch das Hin- 
und Herschaufeln von Dateien einschließ¬ 
lich des bei jedem Diskettenwechsel not¬ 
wendigen ,Ctrl-C‘ (und dem dadurch ver¬ 
ursachten Ausstieg aus ,P!P‘) erscheint 
mir reichlich umständlich. Andererseits ist 
es wenig einleuchtend, seine Sicherungs¬ 
kopien nicht auf dem Laufwerk mit der 
größten Kapazität zu ziehen. 


2. Das Programm Filer 

Eine Lösung für dieses Problem bietet das 
im folgenden abgedruckte Programm, das 
in Turbo-Pascai geschrieben wurde. Es ist 
in der Lage, Dateien von jedem ange¬ 
schlossenem Laufwerk auf jedes andere 
zu kopieren, wobei sogar der Userbereich 
gewechselt werden kann. Es nutzt mit Hil¬ 
fe von Zeigervariablen immer den gesam¬ 
ten zur Verfügung stehenden freien Spei¬ 
cher. Unter 56K-CP/M (Apple-ll+-CP/M 
2.20B) können z.B. pro Diskettenzugriff 
ca. 37K kopiert werden. ,Filer' arbeitet 
schneller und komfortabler als ,PIP‘, so 
daß es auch zum normalen Kopieren mit 
zwei Laufwerken gut benutzt werden 
kann. Die Bedienung ist sehr einfach, da 
der Benutzer per Menü geführt wird. 
Dateinamen müssen nicht eingegeben 
werden, sie werden angezeigt. Durch 
Drücken von ,RETURN', ,Y‘ oder ,J‘ wird 
die Datei zum Kopieren vorgemerkt. Auch 
Dateien mit dem SYS-Attribut werden an¬ 
gezeigt und kopiert, ebenso R/O-Dateien. 
An allen wichtigen Stellen ist ein Pro¬ 
grammabbruch mit ,ESC‘ möglich. 

Ein Nachteil des Programms soll hier je¬ 
doch nicht verschwiegen werden. Um ei¬ 
nen möglichst kompakten Code zu erhal¬ 
ten und die Übertragbarkeit zu anderen 
Computern zu ermöglichen, wurde konse¬ 
quent nur mit Turbo-Pascai und BDOS- 
Aufrufen gearbeitet. Alle Diskettenopera¬ 
tionen werden somit nur von CP/M erle¬ 
digt - mit allen damit verbundenen Nach¬ 
teilen. Ein Diskettenwechsel wird von 
CP/M erkannt und muß mit ,Ctrl-C‘ quit¬ 
tiert werden, da sonst ein BDOS-Error auf- 
tritt. Das vorliegende Filerprogramm erle¬ 
digt dies automatisch (BDOS-Funktion 13), 
es wird jedoch immer eine Systemdiskette 


im Bootlaufwerk erwartet. Wer nur ein 
Laufwerk hat, kann nur auf vorbereitete 
Disketten kopieren, die das CP/M-System 
2.2 enthalten. Für alle anderen Laufwerke 
genügt es, eine dem Laufwerk entspre¬ 
chend formatierte Diskette zu verwenden. 
Dafür enthält das Programm keine absolu¬ 
ten Adressen und keinerlei Tricks, die von 
fremden Computern nicht nachgeahmt 
werden können. Es wird nichts weiter als 
CP/M 2.2 und Turbo-Pascai 2.0 erwartet. 
Möglicherweise funktioniert der ,Filer' 
auch mit anderen CP/M-Versionen, sicher 
aber nicht mit älteren Pascal-Versionen, da 
die Funktionen Dispose und Maxava//be¬ 
nötigt werden. Grundsätzlich läßt sich die 
Speicherplatzverwaltung auch mit Mark, 
Release und Memavail lösen, doch leider 
hat mein Turbo-Pascai (und offenbar auch 
die meisten anderen) hier einen Fehler. 

3. Arbeitsweise des Filers 

Nun ein paar Worte zur Arbeitsweise des 
Programms. Zu Beginn werden Ziel- und 
Quellaufwerk sowie der gewünschte User- 
berelch abgefragt. Wird als Antwort nur 
,RETURN' eingegeben, so nimmt das Pro¬ 
gramm die voreingestellten Werte an. 
Dann kommt die Aufforderung, seine Dis¬ 
ketten in die vorgewählten Laufwerke zu 
legen. Sind Quelle und Ziel identisch, so 
wird nur die Quelldiskette angefordert. 

3.1. Dateiauswahl 

Als nächstes muß ein Dateinamen einge¬ 
geben werden. Dies dient zur Vorauswahl 
von Dateien, die man kopieren möchte. 
Bei dieser Eingabe sind die bekannten 
Jokerzeichen ,?' und ,*' erlaubt. Wird nur 
,RETURN' eingegeben, so entspricht das 
der Eingabe und liefert ein komplet- 
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tes Inhaltsverzeichnis der eingelegten 
Diskette. Dies kann speziell bei doppelsei¬ 
tigen Disketten mit vergrößertem Directory 
sehr lästig werden, wenn viele kleine Files 
vorhanden sind, die nicht kopiert werden 
sollen. Bei anderen Eingaben werden nur 
die passenden Dateien angezeigt und 
dem Benutzerwunsch entsprechend in ei¬ 
ne Liste der zu kopierenden Dateien auf¬ 
genommen. Diese Vorgehensweise hat 
den Vorteil, daß immer der ganze freie 
Speicher genutzt werden kann und somit 
auch mehrere Dateien gleichzeitig ohne 
Rückfragen (und Diskettenwechsel wie 
z.B. beim ,FID‘ für Apple-DOS) im Spei¬ 
cher stehen können. Die Anzahl der Dis¬ 
kettenwechsel ist nur vom vorhandenen 
Speicherausbau (und der Konstanten Puf- 
fergroesse) und der Gesamtzahl der zu 
kopierenden Blöcke, nicht aber von der 
Dateienanzahl, abhängig. 

3.2. Puffergröße 

Die Konstante ,Puffergroesse‘ bestimmt 
den Anteil der Datei, der pro Diskettenzu¬ 
griff gelesen wird. Es wird immer dieser 
Speicherplatz reserviert, egal wie groß die 
Datei (bzw. der noch zu lesende Rest) 
wirklich ist. Die Speicherplatzausnutzung 
ist um so besser, je kleiner die Konstante 
.Puffergroesse' gewählt wird. Andererseits 
bedingt eine Verkleinerung dieser Kon¬ 
stante eine höhere Anzahl von Disketten- 
zugriffen. Wählt man .Puffergroesse = 
128‘, so wird der freie Speicher auch bei 
vielen kleinen Dateien bis zum letzten 
Byte genutzt, der Kopiervorgang wird je¬ 
doch unerträglich langsam. Da CP/M im¬ 
mer nur einen ganzen Block adressiert, ist 
es ein guter Kompromiß, diesen auch 
komplett einzulesen. Vergrößert man .Puf¬ 
fergroesse' auf mehr als zwei bis drei 
Blöcke, so geht der Vorteil der höheren 
Lese- und Schreibgeschwindigkeit meist 
durch den häufigeren Diskettenwechsel 
wieder verloren. Genau einen Block pro 
Diskettenzugrif/ einzulesen, erscheint mir 
daher speziell bei Laufwerken mit mehr als 
40 Spuren und Blöcken von 2K oder gar 
4K eine gute Lösung zu sein. Leere 
Dateien werden als solche erkannt und 
ignoriert. Sie beanspruchen keinen Puffer¬ 
speicher und werden auf der Zieldiskette 
gar nicht in das Directory eingetragen. 

3.3. Programmlisting 

Zum Programmlisting selbst bleibt nicht 
mehr viel zu sagen. Die Aufgabe jeder 
PROCEDURE ist mit einem Kommentar 
erläutert, desgleichen die der BDOS-Auf- 
rufe. BDOS-Aufrufe sind unter Turbo-Pas- 
cal besonders leicht zu realisieren, da die¬ 
se voll unterstützt werden. Beim Proce- 
dureaufruf wird einfach die Unterpro¬ 
grammnummer übergeben. Benötigt das 



ypTURbo.^ 


BDOS-Unterprogramm weitere Werte, so 
können auch diese übergeben werden. 
Liefert die BDOS-Routine ein Ergebnis, so 
kann dies entweder im Akkumulator oder 
im HL-Register stehen. Soll der Akkumu¬ 
lator ausgewertet werden, so benutzt man 
,Ergebnis: = Bdos(nr,wert)‘, soll dagegen 
das HL-Register weiterverarbeitet werden, 
gilt ,Ergebnis: = Bdoshi(nr,wert)‘. 

3.4. BDOS-Aufrufe 

In diesem Filerprogramm wurden die 
BDOS-Aufrufe überall dort verwendet, wo 
die restlichen Pascalfunktionen nicht mehr 
ausreichen. Speziell das Auslesen des In¬ 
haltsverzeichnisses einer Diskette ge¬ 
schieht auf diese Art. Die Procedure Crea- 
te-fcb legt einen File-Control-Block an. 
Die Anfangsadresse des File-Control- 
Blocks muß den BDOS-Funktionen 11 
bzw. 12 übergeben werden, damit CP/M 
weiß, nach welchem Dateinamen auf der 
Diskette gesucht wird. Wohin das Ergeb¬ 
nis dieser Suche geschrieben werden soll, 
wird dem System mit BDOS(26,Zieladres¬ 
se) mitgeteilt. CP/M schreibt dabei immer 
einen kompletten 128-Byte-Sektordes Di- 
rectories in den Puffer, der bei Zieladresse 
beginnt. Im A-Register liefern die Funktio¬ 
nen 11 oder 12 einen Wert zwischen 0 und 

3, der auf den gesuchten Namen im Puffer 
zeigt. Dazu muß man wissen, daß jeder 
Name im Directory 32 Bytes belegt und 
somit bis zu 4 Namen im Puffer stehen 
können. Wird der Wert 255 geliefert, so 
bedeutet dies, daß der gesuchte Name 
nicht gefunden wurde. Mit dem Jokerzei¬ 
chen ,?‘ kann auch nach unbekannten 
Dateinamen gesucht werden - wie es 
auch hier geschieht. Ist der Dateiname 
ermittelt, kann die Datei mit den normalen 
Pascalprozeduren gelesen und geschrie¬ 
ben werden. Weiterhin wird die BDOS- 
Funktion 32 benutzt, die in der Lage ist, 
den aktuellen Userbereich anzuzeigen 
und zu ändern. Dabei werden Userberei¬ 
che von 0 bis 31 akzeptiert. Dies versetzt 
den Anwender in die Lage, Dateien in 
geheime Bereiche zu kopieren, die von 
der Tastatur aus nicht mehr erreicht wer¬ 
den können. Der CCP nimmt nämlich im 
USER-Befehl nur Argumente bis ein¬ 
schließlich 15 an. 

4. Kompatibilität 

Filer wurde auf einem Apple ll-k unter 
CP/M 2.2 entwickelt. Es sollte jedoch oh¬ 
ne Änderungen auf jeden anderen CP/M- 
Computer übertragbar sein, da keinerlei 
rechnerspezifische Funktionen verwendet 
wurden. Ebensowenig interessieren Spur- 
und Sektoranzahl auf der Diskette oder die 
Anzahl der möglichen Directoryeinträge. 
Wichtig ist allein, daß das verwendete 


CP/M auf die vorhandene Laufwerkskonfi¬ 
guration eingestellt ist. Der Anwender muß 
lediglich vor dem Compilieren die Kon¬ 
stante Max entsprechend der Anzahl sei¬ 
ner Laufwerke setzen. Selbstverständlich 
sollte in der Compileroption ,0' im Turbo- 
Menü die Endadresse so hoch wie mög¬ 
lich gesetzt werden, um einen optimalen 
Pufferspeicher zu erhalten. 

Anm. d. Bearbeiters: 

1. Auch nach Compilieren mit Turbo-Pas- 
cal 3.0 funktionierte das Programm ein¬ 
wandfrei. Ebenso arbeitet Filer mit meinem 
speziellen CP/M für die Z80-l--Card pro¬ 
blemlos zusammen. Ich kann jedoch keine 
Aussagen darüber machen, ob es mit an¬ 
deren CP/M-Versionen genauso funktio¬ 
niert. Im Zweifelsfall hilft nur Auspro¬ 
bieren. 

2. Wie installiert man Filer? 

2.1. Von der Sammeldisk; Die Peeker- 
Sammeldisketten sind grundsätzlich im 
DOS-3.3-Format beschrieben. Das heißt, 
daß Sie den File ,FILER.PAS' von der 
Sammeldiskette zuerst mit APDOS (auf der 
CP/M-Master-Diskette) auf eine CP/M- 
Diskette übertragen müssen. Weiter unter 
2.3. 

2.2. Selbsteintippen: Wie gewohnt mit 
dem Turbo-Editor eingeben und als File 
,FILER.PAS' abspeichern. 

2.3. Schließlich im Turbo-Menü die Option 
,C‘ aufrufen und compilieren. 

2.4. Starten mit,FILER'. 


Literatur: 

Rodnay Zaks: CP/M Handbuch, Sybex- 
Verlag 

Bernd Pol : Vom Umgang mit CP/M, iWT- 
Verlag 

Turbo Pascal 2.0 Handbuch, Heimsoeth 
Software 
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max = 1 ; 

{Anzahl der Laufwerke -1 A:= 0, B:= 1 usw.} 
puffergroesse = 2048; 

(Sollte ein Vielfaches der CP/M-Blockgroesse sein} 
datpuffer = 16; 

(puffergroesse/128} 


type 

filename = string[12]; 

zelger = fpufferfeld; {Puffer fuer einen Lese-} 

pufferfeld = record {und Schreibzugriff} 

datname:filename; 
next :zeiger; 
sec :integer; 

pufferiarray [1..puffergroesse] of byte; 
end; 


dirzeiger = fdirfeld; {Liste aller zu kopierenden} 

dirfeld = record {Dateien} 

nextname:dirzeiger; 
aktnarae :filename; 
end; 


var 

dirstart, dirweiter 

Start, weiter, letzter 

name, neuname, suchname, eingabe 

taste, laufwerk 

neufile, altfile 

lang, anzahl, userbereich, fcblock 
Versatz, b, a, c, d, f, i, anf 
filepuffer 
fcbpuffer 

zuser, qusery, ziel, quelle 

raum 

fertig 


: dirzeiger; {Pointer} 

:Zeiger; {Pointer} 

:filename; 

:char; 

:flle; 

:integer; 

:integer; 

:array[0..127] of byte; 

:array[0..35} of byte; 
:byte; 

:real; {freier Speicher} 
:boolean: 


procedure tastendruck; 

{wartet auf einen Tastendruck} 
begin 

read(kbd, taste); 
taste ;= upcase(taste); 
end; 

procedure dirrelease; 

{Uebergibt einen Dateinamen aus der Directory-Liste 

und gibt den vom Namen belegten Speicherplatz wieder frei} 
begin 

dirweiter := dirstart; 
if dirweiter <> nil then 
begin 

dirstart := dirweiterj.nextname; 
name := dirweiterf.aktname; 
dispose(dirweiter); 
fertig := false; 
end 

eise fertig true; 

end; 

procedure release; 

{simuliert die Funktionen MARK und RELEASE mittels DISPOSE} 
begin 

weiter := start; 
while weiter <> nil do 
begin 

letzter := welter|.next; 
dispose(weiter); 
weiter := letzter 
end; 

Start := nil; 
end: 


procedure einloggen(laufwerk:byte): 

{Setzt das System zurueck und macht <laufwerk> zum aktuellen} 
{Laufwerk entspricht <CTRL-C> und fordert daher eine} 
{Systemdisk in A:} 
begin 

if ((laufwerk >= 0) and (laufwerk <= max))then 
begin 

bdos(13); {Anmelden einer Diskette} 

bdos(14,laufwerk); {Laufwerk wird aktuelles Laufwerk} 
end 
eise 

bdos{13); 

end; 

function name_format(name:filename):filename; 

{xmacht aus einem beinahe beliebigem} 

{String einen erlaubten Dateinamen} 
var wort :string[3]; 

dat :filename; 
begin 

if name = '' then name := 

for a := 1 to length(name) do name[a] := upcase(name[a]); 

a := pos('.',name); 

if a < 1 then a := 9; 

wort := copy(name,a+l,3); 

b := pos{,wort); 

if b <> 0 

then for c := (b-1) to 2 do wort := copy(wort,1,c)+'?’; 
if a > 8 then a := 9; 
dat := copy(name,1,a-1); 
a := pos(,dat); 
if a <> 0 

then for c := (a-1) to 7 do dat := copy(dat,1,c)+'?'; 
name := dat+'.'+wort; 
for i := 1 to length{name) do 

if pos(' ',name) <> 0 then delete(name,pos(' ',name),l); 
name_format := name; 
end; 

procedure nameeiniesen; 

{liest einen String, verwandelt ihn in fuer Dateinamen} 

{gueltige Form und schreibt ihn an die alte Stelle} 
begin 

write('Filename eingeben (<CR> = *.*) : '); 
read(elngabe); 

name ;= name_format(eingabe); 
i := length(eingabe); 
while i > 0 do 
begin 

write{t8,' ',#8); 
i := i-1; 
end; 

writeln(name); 
end; 

procedure Speicherplatz; 

{bestimmt den noch zur Verfuegung stehenden Speicherplatz} 
begin 

raum := maxavail; 

if raum < 0 then raum := maxavail + 65535.0; 
end: 


procedure dir(suchname:filename); 

{durchsucht das Directory nach dem angegebenen Dateinamen 
und speichert ihn, falls erwuenscht, in einer Liste } 

procedure create_fcb: 
var i,k: integer; 

{initialisiert CP/M-File-Control-Block} 
begin 

fcbpuffer[0] := 0; fcbpuffer[32] := 0; 
for i := 1 to 11 do fcbpuffer[i] := $20; 
for i ;= 12 to 15 do fcbpuffer[i] := 0; 
i := 1; k:= pos('.',suchname)+l; 
while suchname[i] <> do 
begin 

fcbpuffer[i] := ord(suchname[i]); 
i := i+1 
end; 

for i := 0 to 2 do 

fcbpuffer[9+i] := ord(suchname[k+i]); 

end; 

procedure name_einfuegen; 
begin 

new(dirweiter); 
dirweiterf,aktname := name; 
dirweiterf.nextname := dirstart; 
dirstart := dirweiter; 
fertig := false; 
end; 
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procedure namefragen; 
begin 

name := ''; 

for i := anf+1 to anf+11 do 

name := name+chr({filepuffer[i]) and 127); 
insert('.',name,9}; 
for i := 1 to 12 do 

if pos(' ',name) <> 0 

then delete(name,pos(' ',name),l); 
write(name:14,' kopieren? J/N? '); 

tastendruck; 
case taste of 

’J','Y',*13 : begin 

name_einfuegen; 
writeln('Ja'); 
end; 

eise writeln('Nein'); 
end; {end of case}; 
end; 

begin (dir) 

fertig := true; 
create_fcb; 

fcblock := addr(fcbpuffer); 

{fcblock = Adresse Filecontrolblock} 

Versatz := bdos(26,(addr(filepuffer)}}; 

{Puffer fuer Diskettenoperationen angeben} 

Versatz := bdos($ll,fcblock); 

{Directory von Anfang an lesen} 
if taste = +27 then versatz ;= 255; 
if versatz = 255 then 
begin 
writeln; 

writeln('Keine Datei zu kopieren! '); 
end; 

while {versatz < $ff) do 
begin 

anf ;= versatz*32; 
namefragen; 

versatz ;= bdos($12,fcblock); {Directory weiterlesen} 
if taste = *27 then versatz ;= 255; 
end; 

end; {dir} 


procedure gleiches—laufwerk(name:filename); 

{veranlasst gegebenenfalls einen Aufruf zum Diskettenwechsel.} 
{setzt das System zurueck, aktualisiert das richtige} 

{Laufwerk und setzt den gewuenschten Userbereich,} 

begin 

if ziel = quelle then 
begin 

write(+7); 

writeln(name,'Diskette in Laufwerk ',ehr(ziel+65), 

': einlegen und Taste druecken!'); 
read(kbd,taste); 
writeln; 
end; 

if name = 'Ziel' then 
begin 

einloggen(zlel); 
userbereich := bdos(32,zuser); 

{neuen User einstellen} 
end 

eise begin 

einloggen(quelle); 
userbereich := bdos{32,quser); 

end; 

end; 

procedure start_lesen; 

{bestimmt die Laenge einer zu lesenden Datei} 
begin 

assign(altfile,name); 

{$!-} 

reset(altfile); 
f := ioresult; 

{$!+} 

if f <> 0 then writeln('Fehler Quelldisk!? ',f) 
eise 
begin 

lang := filesize(altfile); 
writeln('Lese: ',name); 
end; 

end; 


procedure lesen; 

(liest die durch <puffergroesse> bestimmte Anzahl von Bytes 
(oder mindestens den Rest) der Datei in den Speicher,} 
begin 

if datpuffer <= lang then anzahl := datpuffer 
eise anzahl := lang; 

new(weiter); 

blockread(altfile,weitert.puffer,anzahl); 

weiterf.sec := anzahl; 

weitert.datname name; 

lang := lang-anzahl; 

if Start = nil then Start ;= weiter 

eise letztert,next := weiter; 
letzter := weiter; 
letztert.next := nil; 

Speicherplatz; 

end; 

procedure neue_datei; 

{eroeffnet eine neue Datei zum Schreiben. 

Falls der Dateiname schon existiert, kann ein neuer Name 
angegeben werden. <CR> ueberschreibt die alte Datei 
gleichen Namens.} 
begin 

suchname := weitert.datname; 
repeat 

assign(neufile,suchname); 

{$!-} 

reset(neufile); 
f := ioresult; 

{$!+} 

if f = 0 then 
begin 

writeln(suchname,' bereits vorhanden. '); 
write{#7,'Neuen Filenamen eingeben oder Diskette'); 
write(#7,' wechseln (<CR> ueberschreibt '); 
writeln(#7,suchname,'):'); 
readln(neuname); 
if length(neuname) > 0 

then neuname := name_format(neuname); 
f := 1; 

if length(neuname) > 1 then suchname := neuname; 
einloggen(ziel); 
end; 

if f > 1 then 
begin 

writeln('lO-Fehler ' , f); 

{Kann nur bei Hardwarefehlern Vorkommen} 
halt; 
end; 

until f = 1; 

assign(neufile,suchname); 
rewrite(neufile); 
writeln('Schreibe: ',suchname); 
suchname := weitert.datname; 
end; 

procedure copy_dat; 

{Der Programmteil, welcher wirklich kopiert.} 
begin 

suchname ;= ' @anfang@'; 

{Kann in Wirklichkeit nicht verkommen, markiert den Anfang} 

lang := 0: 

repeat 

Speicherplatz; 

while((raum > (datpuffer*128.0)) and (fertig = false)) do 
begin 

if lang = 0 then 
begin 

dirrelease; 

if fertig = false then start_lesen 
end; 

while {(lang>0) and (raum>(datpuffer*128.0))) do lesen; 
end; 

glelches_laufwerk('Ziel'); 
if suchname <> ' @anfang@' then 
begin 

reset(neufile); 

seek(neufile,filesize(neufile)); 
end; 

weiter ;= Start; 
while weiter <> nil do 
begin 

if suchname = ' @anfang@' then neue_datei; 
if (suchname <> weitert.datname) then 
begin 

close(neuflle); 
neue_datei; 
end; 
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blockwrite(neufile.weitert-puffer.weitert.sec)j 
weiter := weitert,next; 
end; 

close(neufile); 
release; 

if fertig = false then gleiches_laufwerk('Quell'); 
until fertig = true; 
close(neufile)j 
end; 

procedure userfragen; 

{erfragt die gewuenschten Userbereiche fuer Ziel und Quelle} 
begin 

write('Userbereich? ';20); 
read(eingabe); 
val(eingabe,userbereich,c); 
if G = 0 then case userbereich of 
0. .31 : ; 

eise userbereich := 0; 
end (end of case) 
eise userbereich := 0; 
i ;= length{eingabe); 
while i > 0 do 
begin 

write(#8,' ',#8); 
i := i-1; 
end; 

writeln(userbereich); 
end; 

begin (Hauptprogramm} 

dirstart := nil; 

Start := nil; 
ziel := max; 
quelle := 0; 

repeat {Hauptschleife} 

laufwerk := chr(bdos(25)+65); (aktuelle Laufwerk} 

userbereich := bdos(32,$ff); {aktuelle User} 

fertig := true; 
clrscr; 

Speicherplatz; 

writeln('Kopierprogramm fuer Files: CP/M 2.2', 

'3,8.85':19,’G.Runge':22); 
write('Aktives Laufwerk ',laufwerk,':'); 
write('Userbereich: ':24,userbereich); 
writeln(raum:18:0,' Bytes verfuegbar'); 
write {'In Laufwerk A: muss sich immer eine '); 
writeln('Systemdiskette befinden!'); 
for i := 1 to 80 do write('-'); 
if raum < ((128.0 * datpuffer)+1300) then 
begin 

writeln('Programmabbruch: zu wenig Speicher!'); 
halt; 
end; 
repeat 

write('Quelle: Welches Laufwerk? '); 

tastendruck; 

if ord(taste) > 64 then quelle := ord(taste)-65; 

write(chr(quelle+65),': '); 

userfragen; 

quser := userbereich; 

write('Ziel : Welches Laufwerk? '); 

tastendruck; 

if ord (taste) > 64 then Ziel := ord(taste)-65; 
write ( ehr (zieH-65), ' : ' ); 
userfragen; 
zuser := userbereich; 
until((quelle >= 0) and (quelle <= max)) 
and {(ziel >= 0) and(ziel <= max)); 
if quelle <> ziel then writeln('Disketten einlegen! '); 
gotoxy(66,3); write('<ESC> = Abbruch') ;gotoxy(1,8); 
gleiches_laufwerk('Quell'); 
writeln; 

if taste <> *27 then 
begin 

nameeiniesen; 
dir(name) 
end 

eise while fertig = false do dirrelease; 
if fertig = false then copy_dat; 
writeln; 

write('Programmende mit <ESC> '); 
tastendruck; 
until taste = #27; 

userbereich := bdos(32,0); (immer zurueck in Userbereich 0} 
end. 
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Gelegenheitsanzeigen 

Sie können unter dieser 
Rubrik zu einem besonders 
günstigen Preis 

• Ihre Hardware und 
Software verkaufen 

• Ihre Hard- und Software 
suchen 

• Kontakte knüpfen und 
vieles mehr 


Musteranzeige privat 

1 Druckzeile ä 32 Buch¬ 
staben nur DM 5,50 
zuzügl. ges. MwSt. 
Mindestens 2 Druckzeilen 

Beispiel: 

Verkaufe neuwertigen Typenrad¬ 
drucker mit Apple-Interface. 

Preis auf Anfrage. Tel. 007 

nur DM 18,81 inkl. MwSt. 


Musteranzeige gewerblich 

1 Druckzeile ä 32 Buch¬ 
staben nur DM 11,- zuzügl. 
ges. MwSt. Mindestens 

2 Druckzeilen 
Beispiel: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple II plus 
16 Funktionstasten und separatem 
Ziffernblock. 

Fa. Keyboard & Co. 


nur DM 62,70 inkl. MwSt. 
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AUFTRAG FÜR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 

□ suche Hardware □ suche Software □ Verschiedenes 

□ biete Hardware □ biete Software □ Chiffre 




Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort¬ 
zwischenräume. Bitte Absender nicht vergessen. Mindestens 2 Zeilen. 
Chiffregebühr DM 6,- zuzügl. MwSt. 




bitte ich um detaillierte Information. 

Ich wünsche □ Prospekt, Datenblatt □ Preisliste □ schriftliches Angebot □ tel. Rückruf 
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Menge 

Produkt und Bestellnummer 
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gesamt DM 






















gebe ich neben¬ 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 


Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 
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Ich interessiere mich für Beiträge über 
□ Apple □ Mac □ Atari 
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Umfrage*Karte Produkt-Karte ^ 4 Peeker- Börse 



Vorname, Name 


Firma 


Straße 


POSTKARTE 


Wohnort 


PLZ^Ort 

Bitte veröffentlichen Sie den um¬ 
stehenden Text von-Zeilen 

ä _DM in der nächsterreich¬ 

baren Ausgabe vom Peeker 


Bei Angeboten; ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 


Peeker-Börse 

Anzeigen-Service 

Dr. Alfred Hüthig Verlag 
Postfach 10 28 69 
6900 Heidelberg 1 


Datum 


Unuirschrill 


W W r W W 

Produkt- 

Karte 


Wünschen Sie 
weitere Informatio¬ 
nen zu einer der im 
Heft erschienenen 
Anzeigen? 



Karte bitte vollständig ausfüllen 


Vorr>ame, Name 


Firma 


POSTKARTE 


SiraBe 


Insmonl 


PLZ/Ort 


Telefon mit Vorwahl 


[ Anschrift der Firma angeben, bei der Sie 

besteilen bzw. von der Sie informationen 
wünschen 


> 


Straße 


PLZyOrt 



Karte bitte vollständig ausfüllen 


Vorname, Name 


POSTKARTE 


Nichts einfacher als 
das. Produkt-Karte 
ausfülien, frankieren 
und an den 
Inserenten (nicht an 
die Peeker-Redaktion 
senden. 

Vorher aber nicht 
vergessen: 

Kreuzen Sie an, 
welchen Informations¬ 
wunsch Sie haben. 

Damit erleichtern Sie 
dem Hersteller 
eine gezielte Beant¬ 
wortung Ihrer Anfrage 

Zum Schluß tragen 
Sie auf der Rück¬ 
seite die genaue 
Anschrift des 
Inserenten und Ihren 
Absender ein. 


Firma 


Straße 


PLZ/Orl 


Telefon mit Vorwahl 


Peeker 

Redaktion 

Dr. Alfred Hüthig Verlag 
Postfach 1028 69 
6900 Heidelberg 1 







































Thomas Tai 


flQll HUthig 


plötzlich sieht 
olizei im Kinderzimmer! 


Raubkopierer gehen einem gefähr- 
liehen Hobby nach. Sie fühlen sich als 
die Robin Hood’s der Computerszene, 
aber sie richten Millionenschaden an! 

Thomas Tai kennt die Kopierszene. Er weiß, warum 
kopiert wird. Und was die Software-Häuser dagegen 
tun. Oft endet das, was als vermeintlich harmloses 
Hobby anfing, mit Hausdurchsuchung und Gerichts¬ 
verfahren. 

Er schrieb eine Mahnung an alle Raubkopierer aus¬ 
zusteigen. An authentischen Fällen zeigt er die recht¬ 
liche Situation. Sagt, was bei einer Abmahnung oder 
Schlimmerem zu tun ist. Denn die „Gegenseite“ rea¬ 
giert oft übertrieben und stellt astronomische Scha¬ 
densersatzforderungen. 

Jeder, der einen Computer hat, kann 
mit Raubkopien in Verbindung kom¬ 
men. Deshalb ist dieses Buch für alle 
wichtig. Auch für Eltern, die sich 
wundern, warum Klaus-Peter neuer¬ 
dings so viel Post bekommt. 

Das Buch ist brand- nyi 
neu und kostet UIVI 


Cracker,Hocker, 
Datensairanler 

Softwarepiraleriö unter der Lupe 


Diese Buchhand¬ 
lungen haben das 
Buch vorrätig! 









Dreiecksberechnungen 


in UCSD-Pascal 

von Samuel Schmid 

Das hier vorgestellte Pascal-Programm er¬ 
laubt dem Benutzer, Seiten, Winkel, Flä¬ 
chen und andere Daten von beliebigen 
Dreiecken schnell und einfach zu berech¬ 
nen und die Dreiecke anschließend auf 
dem Bildschirm grafisch darzustellen. Die 
Berechnung der Dreiecke erfolgt über die 
vier allgemein bekannten Kongruenzsätze 

in der Art .Dreiecke sind kongruent, 

wenn...“. 

1. Bedienung 

Nach dem Programmstart erscheint das 
Menü und fragt den Benutzer, nach wel¬ 
chem Kongruenzsatz das Dreieck berech¬ 
net werden soll. Will man z.B. ein Dreieck 
berechnen, von dem alle drei Seiten be¬ 
kannt sind, so gibt man „1 “ für den ersten 
Kongruenzsatz (Seite - Seite - Seite) ein. 
Danach wartet das Programm auf die Ein¬ 
gabe der entsprechenden Daten, welche 
in einem beliebigen einheitlichen Maß ein¬ 
gegeben werden. War die Eingabe korrekt 
(keine der Eingaben darf 0 sein), so er¬ 
scheinen kurz darauf die berechneten 
Daten. 

Will man das Dreieck sehen, so gibt man 
auf die Frage, ob das Dreieck grafisch 
dargestellt werden soll, „J“ für „Ja“ ein. 
Das Dreieck erscheint nun auf dem Bild¬ 
schirm. Die Eckpunkte sind mit den dazu¬ 


gehörigen Buchstaben bezeichnet. Das 
Dreieck wird nicht mit den eingegebenen 
oder berechneten Seitenlängen darge¬ 
stellt. Lediglich die Verhältnisse stimmen, 
das dargestellte ist also dem berechneten 
Dreieck ähnlich. Dies ist deshalb der Fall, 
da die Dreiecke so vergrößert oder ver¬ 
kleinert werden, daß sie auf den Bild¬ 
schirm passen. Ließ man das Dreieck gra¬ 
fisch darstellen, so hat man jetzt die Mög¬ 
lichkeit, durch Drücken der Tasten „T“ 
und „G“ zwischen Text- und'Grafikbild¬ 
schirm hin- und herzuschalten oder mit 
„E“ wieder zum Menü zu gelangen. Das 
Programm beginnt immer wieder von vorn. 
Es kann jedoch durch die Eingabe von „0“ 
im Menü verlassen werden. 

Das Programm wird im Editor des Pascal- 
Systems eingegeben. Ist die Eingabe be¬ 
endet, so verläßt man den Editor und com- 
piiiert das Programm. Gestartet wird das 
Programm entweder mittels „R“ für „Run“ 
oder mittels „X“ für „Execute“. 

2. Änderungen 

Wer das Programm in eine andere Pascal- 
Version umschreiben oder erweitern will, 
sollte folgendes beachten; 

- Für eine Grafik-Dump-Routine kann man 
beispielsweise die Prozedur „toggle“ 
(=„hin- und herschalten“) um einen Be¬ 
fehl erweitern, der die Druckroutine, wel¬ 
che vorzugsweise in Form einer „Case“- 
Anweisung oder einer Prozedur geschrie¬ 
ben wird, aufruft. 


- Die im Programm immer wieder auftre¬ 
tende Konstante „dg“ wird benötigt, um 
die durch den Computer in Radiant (2 * 
Pi) berechneten Winkelfunktionen in die 
allgemein verwendeten Altgrade (Kreis¬ 
winkel = 360 Grad), welche sich auch für 
die grafische Darstellung besser eignen, 
umzurechnen. Will man weitere Berech¬ 
nungen in die Sätze einfügen, so muß 
diese Konstante in alle Formeln, welche 
den Sinus, Cosinus oder Arcustangens 
benötigen, eingefügt werden. Die durch 
„asin“, „acos" oder „tan“ gelieferten 
Werte sind schon in Altgrade umge¬ 
rechnet. 

- Die Variablen „sO“, „s1 “, und „s2“ wer¬ 
den verwendet, um das Dreieck so zu 
vergrößern oder zu verkleinern, daß es auf 
den Bildschirm paßt. 

- Das Programm wurde ohne die Verwen¬ 
dung des Goto-Befehls realisiert. Wird je¬ 
doch dieser Befehl in einer Erweiterung 
oder Abänderung des Programmes benö¬ 
tigt, so muß im Programmkopf die Compi¬ 
ler-Anweisung „(*$G-F*)“ stehen. 

- Eine schlechte Eigenschaft von Pascal 
1.1 und 1.2 ist es, daß eine Eingabeanwei¬ 
sung der Form „readln“ mit einer realen 
Variablen als Argument bei fehlerhafter 
Eingabe nicht korrigierbar ist und bei Ein¬ 
gabe eines Buchstabens sogar das ganze 
Programm abbricht. Eine Möglichkeit wäre 
also, die Eingabe mittels des „ioresult“- 
Befehls durch das Programm selbst zu 
prüfen und gegebenenfalls eine Fehler¬ 
meldung auszugeben. 


DREIECKTEXT 


FUNCTION tan{x: real): real; 

Begin 

if (cos(x/dg)<>0) then tan:={sin(x/dg)/cos(x/dg)); 

PROGRAM dreiecksberechnungen; 


End {tan}; 

{von Samuel Schmid, Bern, 1985} 


PROCEDURE satzl; (Seite Seite Seite} 

uses TURTLEGRAPHICS, TRANSCEND; 


Begin 

write(ehr{12)); {Bildschirm loeschen} 
gotoxy(30,2); writeln('SSS'); 

Const dg = 57.29577951; 


repeat 

Var sl,s2 ; integer; 


gotoxy(0,7); 

ch : char; 


write('Seite a ;'); readln(a); 

a,b,c,al,be,ga,ha,fl,ir,ur,ar,d,s,s0 : real; 


write('Seite b ;'); readln(b); 
write('Seite c :'); readln(c); 

FUNCTION asin(x: real): real; {asin=arcussinus} 


a:=abs(a); b:=abs(b): c:=abs(c); 

Begln 


until ((a+b>=c) and (a>0) and (b>0) and (c>0)); 

if abs(x)=l then asin;=90*x; {asin(l)=90, asin(-l)—90} 


s:=(a+b+c)/2; {s=halber Dreiecksumfang} 

if abs(x)<l then asin:=atan(x/sqrt(-x*x+l))*dg; 


al:=2*acos(sqrt(s*{s-a)/(b*c))); 

End {asin}; 


be:=asin(sin(al/dg)*b/a); 
ga:=180-al-be; 

FUNCTION acos(x: real): real; {acos=arcuscosinus} 


fl:=a*b/2*sin(ga/dg); 

Begin 


ha:=fl*2/a; 

if abs(x)<l then acos;=(-atan(x/sqrt(“X*x+1))+l.5707633)*dg 


ir:=fl/s; 

eise acos:=0; 


ur: = (a*b*c)/(4*fl); 

if x=-l then acos:=180; 


ar:=fl/(s-a); 

End {acos}; 


End {satzl}; 
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PROCEDURE satz2; {Winkel Seite Winkel} 


if ga<=90 then begin 

Begin 


repeat (Dreieck vergroessern) 

write(chr(12)); gotoxy(30,2); writeln('WSW'); 


if (a*s2<250) and (ha#s2<170) then s2:=s2+l; 

repeat 


until ((a*(s2+l)>=250) or (ha»(s2+l)>=170)); 

gotoxy(0,7); 


repeat (Dreieck verkleinern) 

write('Alpha :'): readln{al); 


if (a*s2/sl>250) or (ha*s2/sl>170) then sl:=sl+l; 

write('Seite b readln(b); 


until ({a»s2/sl<=250) and (ha»s2/sl<=170)); 

write('Gamma readln{ga); 


end (if ga) 

ga;=abs(ga); al:=abs(al); b:=abs(b}: 


eise begin 

until ((ga>0) and (al>0) and (b>0)); 


d:=sqrt(sqr{b)-sqr(ha))+a; 

be:=180-al-ga; 


repeat (Dreieck vergroessern) 

a:=b*sin(al/dg)/sin(be/dg); 


if (d*s2<250) and (ha»s2<170) then s2:=s2+l; 

c:=b*sin(ga/dg)/sin(be/dg); 


until ((d»(s2+l)>=250) or (ha»(s2+l)>=170)); 

fl:=a#b/2*sin(ga/dg)j 


repeat (Dreieck verkleinern) 

ha:=fl^(f2/aj 


if (d»s2/sl>250) or (ha»s2/sl>170) then sl:=sl+l; 

s:={a+b+c)/2; 


until ((d*s2/sl<=250) and (ha»s2/sl<=170)); 

ir:=fl/s; 


end (eise); 

ur:=(a*b#c)/(4#fl); 


s0:=sl/s2; moveto{10,10); pencolor{white); 

ar:=fl/(s-a); 


moveto{10+trunc{a/s0),10); 

End {satz2}; 


turn(180-trunc(ga)); move(trunc{b/s0)); moveto(10,10); 
pencolor(none); moveto(8,1); wchar('B'); 

PROCEDURE satz3; {Seite Winkel Seite) 


moveto(8+trunc{a/s0),1); wchar('C); 

Begin 


moveto(12+trunc(a/s0),10); turnto(0); 

write(chr(12)}; gotoxy(30,2); writeln('SWS '): 


turn(180-trunc(ga)); move(trunc(b/s0)); wchar{'A'); 

repeat 


toggle; 

gotoxy(0,7); 


End (grafout); 

write('Seite c :'); readln(c); 


write('Alpha :'); readln{al); 


PROCEDURE textout; 

write('Seite b :'); readln(b); 


Begin 

c:=abs(c); al:=abs(al); b:=abs(b)■ 


write(chr(12)); gotoxy(30,3); writeln('ERGEBNISSE'); 

until ((c>0) and (al>0) and (b>0)); 


gotoxy(0,7); 

a:=sqrt(sqr(b)+sqr(c)-2*b*c#cos(al/dg)); 


(Daten werden mit zwei Dezimalstellen ausgegeben} 

be:=asin(b*sin(al/dg)/a); 


writeln{'Seite a=',a:5:2); 

ga;=180-al-bej 


writeln('Seite b=',b:5:2); 

fl:=a*b*sin(ga/dg)/2; 


writeln{'Seite c=',c:5:2): 

ha:=fl*2/a; 


writeln('Winkel alpha=',al:5:2): 

s:=(a+b+c)/2; 


writeln('Winkel beta=',be:5;2); 

lr:=fl/s; 


writeln('Winkel gamma=',ga:5:2); 

ur; = (a*b*c)/(4*fl); 


writeln('Hoehe auf a=',ha:5:2); 

ar:=fl/(s“a); 


writeln('Flaeche=',fl:5:2); 

End {satz3}; 


writeln('Inkreisradius=',ir;5:2); 
writeln('Umkreisradius=',ur;5:2); 

PROCEDURE satz4; (Seite Seite Winkel) 


writeln('Ankreisradius=',ar:5:2); 

Begin 


writeln; 

write(chr(12)); gotoxy(30,2}; writeln{'SSW'); 


write('Soll das Dreieck grafisch dargestellt werden (J/N)'); 

repeat 


read(ch); if ch in ['j','J'] then grafout; 

gotoxy(0,7); 


End (textout); 

wrtteln('Seite b > Seite a'); 



write('Seite b :'); readln(b); 


PROCEDURE dreiecke; 

write('Seite a readln{a); 


Begin 

write('Beta :'); readln(be); 


write{ehr(12)); 

b:=abs(b); a:=abs(a); be:=abs(be); 


gotoxy(25,2); writeln('DREIECKSBERECHNUNGEN'); 

until ((b>a} and (b>0) and (a>0) and (be>0)); 


gotoxy(20,3); writeln('von Samuel Schmid, Bern 1985'); 

al:=asin(a*sin(be/dg)/b); 


gotoxy(30,8); writeln('{l) SSS'); 

ga:=180-al-be; 


gotoxy(30,9); writeln('{2) WSW'); 

c:=b*sin(ga/dg)/sin(be/dg); 


gotoxy(30,10); writeln('(3) SWS'); 

s:=(a+b+o)/2; 


gotoxy(30,11); writeln('(4) SSW'); 

fl:=a*b/2*sin(ga/dg); 


gotoxy(25,15); write('Eingabe : (0=Ende)'); 

ha:=fl*2/a; 


repeat 

ir:=fl/s; 


read(ch); 

ur: = {a*b*c)/(4*fl); 


until ch in ['0'. '4']; 

ar:=fl/(s-a)j 


case ch of 

End {satz4); 


'0': exit(program); 

'1': satzl; 

PROCEDURE toggle; (Wechseln zwischen Text und Grafik) 


'2': satz2; 

Begin 


'3': satz3; 

repeat 


'4': satz4; 

repeat 


end (case); 

gotoxy(0,23); read(ch); 


textout; textmode; 

until ch in ['t','T','g','G','e','E']; 


End (dreiecke); 

case ch of 



't','T': textmode; 


BEGIN (hauptprogramm) 

'g','G': grafmode; 


repeat 

'e','E': exit{toggle); 


dreiecke: 

end (case); 


until false {Endlosschleife) 

until false {Endlosschleife} 


END (hauptprogramm). 

End (toggle); 

PROCEDURE runde; (rundet die Winkel) 

Begin 

if ga-trunc(ga)>0-5 then ga:=trunc(ga+0.5); 



if al-trunc(al)>0.5 then al;=trunc(al+0.5); 


Hinweis: Für einen geordneten Exit End¬ 

if be-trunc(be)>0,5 then be:=trunc(be+0,5); 

End {runde); 


losschleife durch kleines Menü 
ersetzen. 

PROCEDURE grafout; 

Begin 

initturtle; sl;=l; s2;=l; 

chartype(10); (weisse Buchstaben, schwarzer Grund) 
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Stringbefehle für Kyan 
Pascal 


von Matthias Meyer 

1. Probleme der Parameter¬ 
übergabe 

Im Peeker3/86, S.40, konnten Sie nachle- 
sen, daß es um die Stringverarbeitung in 
Kyan-Pascal schlecht bestellt ist. Im Ge¬ 
gensatz zu UCSD- und Turbo-Pascal gibt 
es nämlich in Kyan-Pascal leider keinen 
vordefinierten Datentyp STRING, so daß 
man bisher mit einer einmal festgelegten 
und nicht mehr zu ändernden Länge MAX¬ 
STRING leben mußte. 

Unglücklicherweise waren die mitgeliefer¬ 
ten Befehle zur Stringverarbeitung auch 
noch in Pascal geschrieben, was das an¬ 
sonsten effiziente Kyan-Pascal in Sachen 
Textverarbeitung zum „Fat- and Slow-Pro- 
dukt“ werden ließ. Diesem Mißstand soll 
nun mit sechs neuen Befehlen abgeholfen 
werden: LENGTH, POS, CONCAT, COPY, 
DELETE und INSERT, die in Anlehnung an 
(1) entwickelt wurden. 

Doch bevor es soweit war, sollten erst 
einmal noch einige Hürden zu überwinden 
sein. Zunächst stellte es sich als unmög¬ 
lich heraus, komplexe Datentypen (AR- 
RAY OF CHAR) mit unterschiedlichem 
Aufbau (verschiedene Stringlängen) an 
dieselbe Prozedur oder Funktion zu über¬ 
geben. Da es jedoch erfreulicherweise in 
Pascal möglich ist, an eine Prozedur oder 
Funktion anstelle einer Variablen deren 
Speicheradresse zu übergeben (2), 
schien dieses Problem damit eigentlich 
schon gelöst zu sein. Doch leider stellte 
sich heraus, daß diese Übergabe aus un¬ 
erfindlichen Gründen nur dann erfolgen 
darf, wenn der Datentyp der Variablen, auf 
die sich der Variablenzeiger richten soll, 
explizit in der Prozedur oder Funktion an¬ 
gegeben wird, obwohl dieser zur Bestim¬ 
mung des Variablenzeigers völlig uninter¬ 
essant ist. Aber genau hier war dann doch 
noch die undichte Stelle im System: 


* Zum besseren Verständnis kann man die Stringdemo-Zähllei- 
sten aus Peeker 3/1986, S. 43-44 heranziehen. 


Wenn es schon nicht möglich sein sollte, 
den ganzen String an die Prozedur oder 
Funktion zu übergeben, so doch wenig¬ 
stens das erste Zeichen. Wenn man in der 
Prozedur dann anstelle des ersten Zei¬ 
chens dessen Adresse anfordert, hat man 
automatisch die Anfangsadresse des gan¬ 
zen Strings. Einen Haken hat die Sache 
aber; Die Länge der Zeichenkette ist un¬ 
bekannt. Deshalb muß nun zu jeder 
Stringoperation auch noch ein Längenbyte 
übergeben werden. 

Wir fassen also zusammen: 

- Zur Übergabe eines Strings an einen 
Stringbefehl muß dessen vordefinierte 
Länge bekannt sein und übergeben 
werden. 

- Anstelle des ganzen Strings wird nur das 
erste Zeichen übergeben. Das erste Zei¬ 
chen eines Strings fordert man an, indem 
man direkt nach dem Variablennamen den 
Index [1] schreibt. 

Die neuen Stringbefehle wurden so weit 
wie möglich an die Syntax der UCSD- 
Pascal-Befehfe angelehnt. Leider war es 
aus verschiedenen Gründen nicht mög¬ 
lich, die Funktionen CONCAT und COPY 
als ebensolche zu implementieren. Schon 
ein einfacher Versuch, eine String-Varia¬ 
ble konstanter Länge als Funktionswert 
zurückzubekommen, endete mit einem 
nicht dokumentierten „47 error“ des 
Compilers. Offensichtlich sind bei Kyan- 
Pascal komplexe Variablen als Funktions¬ 
rückgabeparameter nicht vorgesehen, 
denn der von Kyan Software mitgelieferte, 
in Pascal geschriebene CONCAT-Befehl 
ist auch als Prozedur anstelle einer Funk¬ 
tion implementiert worden. 


2. Die implementierten Befehle* 

Um die nun folgenden Beschreibungen 
der einzelenen Befehle möglichst kurz zu 
halten, folgen hier zunächst einige Defini¬ 
tionen: 


- Ein String ist in Kyan-Pascal ein ARRAY 
[1..n] OF CHAR und somit kein vordefi¬ 
nierter Datentyp. 

- Die Übergabe einen Stings an einen 
Stringbefehl erfolgt, wenn nicht anders 
vermerkt, durch die Übergabe der ersten 
Zeichens des Strings. 

- Wenn nachfogend von Werten gespro¬ 
chen wird, so ist damit eine INTEGER- 
Variable bzw. eine INTEGER-Konstante 
gemeint. 

- Unter der Maximallänge eines Strings 
verstehen wir einen Wert, der die maxima¬ 
le Anzahl der Zeichen, die der String auf¬ 
nehmen kann, angibt. 

- Mit der Länge eines Strings hingegen ist 
ein Wert gemeint, der die Anzahl der zu 
verarbeitenden Zeichen des Strings an¬ 
gibt. 

LENGTH-Funktion 

Sie ermittelt die Länge der String-Eintra¬ 
gung eines Übergabestrings. 

Eingabe: Die Funktion erwartet als Über¬ 
gabeparameter die Maximallänge des 
Strings, dann den String selbst. 

Ausgabe: Die Funktion verhält sich im Pro¬ 
gramm wie eine INTEGER-Variable. 

POS-Funktlon 

Sie ermittelt die Position, ab der ein String 
S1 in einem String S2 vollständig enthal¬ 
ten ist. 

Eingabe: Die Funktion erwartet als Über¬ 
gabeparameter die Länge von S1, gefolgt 
von S1, dann die Maximallänge von S2, 
gefolgt von S2. 

Ausgabe: Wie bei LENGTH. 

Prozedur CONCAT 

Sie erzeugt einen String S3, der aus zwei 
Strings S1 und S2 zusammengesetzt wird. 
Eingabe: Die Prozedur erwartet als Über¬ 
gabeparameter die Länge von S1, gefolgt 
von S1, dann die Länge von S2, gefolgt 
von S2, dann die Maximallänge von S3, 
gefolgt von S3. 

Ausgabe: Die Prozedur wird im Programm 
als eigenständiger Befehl aufgerufen und 
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überschreibt den Ausgabestring vollstän¬ 
dig. Nicht benutzte Bytes werden mit 
Leerzeichen aufgefüllt. 

Prozedur COPY 

Sie erzeugt einen String S2, der einen 
Teilstring von S1 darstellt. 

Eingabe: Die Prozedur erwartet als Über¬ 
gabeparameter einen Wert mit der Anzahl 
der zu kopierenden Zeichen, gefolgt von 
dem Zeichen von S1, ab welchem kopiert 
werden soll, dann die Maximallänge von 
S2, gefolgt von S2. 

Ausgabe: S2 darf mit S1 Identisch sein, 
sonst wie bei CONCAT. 

Prozedur DELETE 

Sie löscht einen Teil aus einem String S. 
Der verbleibende Stringrest wird so ver¬ 
schoben, daß die verbleibenden zwei 
Stringtelle direkt aufeinander folgen. 
Eingabe: Die Prozedur erwartet als Über¬ 
gabeparameter die Maximallänge von S, 
dann einen Wert mit der Position, ab wel¬ 
cher gelöscht werden soll, gefolgt von ei¬ 
nem Wert mit der Anzahl der zu lö¬ 
schender Zeichen, schließlich den String 
S. 

Ausgabe: Wie bei CONCAT. 


Prozedur INSERT 

Sie fügt einen Teil aus einem String S1 in 
einen String S2 ab einer angegebenen 
Position ein. Der verbleibende Stringrest 
von S2 wird so verschoben, daß er an die 
eingefügten Zeichen aus String S1 direkt 
anschließt. 

Eingabe: Die Prozedur erwartet als Über¬ 
gabeparameter die Maximallänge von S2, 
dann einen Wert mit der Position, ab wel¬ 
cher S1 in S2 eingefügt werden soll, ge¬ 
folgt von einem Wert mit der Anzahl einzu¬ 
fügender Zeichen, nachfolgend das Zei¬ 
chen von S1, ab welchem kopiert werden 
soll, schließlich den String S2. 

Ausgabe: Wie bei CONCAT. 

Zwei abschließende Tips 

- Um die Compilierung zu verkürzen, ist 
es empfehlenswert, den Include-File di¬ 
rekt in das Quellprogramm einzufügen, da 
die vielen Directory-Zugriffe bei Verwen¬ 
dung mehrerer Include-Files die Compilie¬ 
rung doch recht eindrücklich verlang¬ 
samen. 

- Belm Eintippen der Assembler-Quell¬ 
programme sind Verwechslungen der 
temporären Variablen JY+n usw. sehr 
leicht möglich. Bitte besonders beachten. 


Literatur 

(1) Apple Pascal Language Reference Ma¬ 
nual, S. 22-25. 

(2) Kyan Pascal User’s Manual Version 
2.0, S. V-18ff. 

Kurzhinweise 

1. Zweck: 

Schnelle Assemblerroutinen für Stringbe¬ 
fehle in Kyan-Pascal 2.0. 

2. Konfiguration: 

ll-H/e/c; ProDOS; Kyan-Pascal ab Version 
2.0 aufwärts. 

3. Compiliertes Programm STRINGDE¬ 
MOS aus Kyan-Menü heraus starten. 

4. Sammeldisk: 

STRINGUTILS.I 

(Include-File mit sechs neuen Stringbe¬ 
fehlen) 

STRINGDEMOS.P 

(Pascal-Quelltext mit Anwendungsbei¬ 
spielen) 

5. Sonstiges: 

Diese Dateien müssen zunächst mit CON- 
VERT oder DOSTOPRO von der DOS-3.3- 
Sammeldisk auf Ihre Kyan-ProDOS-Ar- 
beitsdiskette konvertiert werden. Danach 
STRINGDEMQS.P zu STRINGDEMOS 
compilieren. 


Apple und IBM 
kompatible Computer 


16K, Z80, Diskcontroiler je .... 98,- 

80 Zeichenkarte mit Softswitch 

2 Zeichensätze.198- 

lie-kompatibies Motherboard 

ohne Firmware. 498- 

Erphi-controiier mit Autopatch . . 285,- 

TEAC FD-54A mit Appie-Bus . . . 298,- 

PC U+ Karte läßt alle Apple 11+ 
Software auf dem IBM zu. Deutsche 
Entwicklung und Fertigung . 1175,— 

OLYMPIA compact NP ..... 1298,- 
Tastaturen für IBM und Apple . ab 298,- 
512K-RAM-Karte mit 256 K 
bestückt inkl. Software . . 298,— 

Apple Super-Modem-Karte inkl. dt. 

Software und dt. Handbuch . . . 348,- 


Versand nur per Nachnahme oder Vorkasse 
Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 

128K Karte (Saturn kompatibel). 278,— 

MoVe GmbH 

vormals U. Mohwinkel Electronic 
Berliner Straße 73 Pf: 250166 
5090 Leverkusen Fettehenne 
Telefon 0214/93781 od. 95060 


M2000 

llc-ProDOS-Uhr 

• Anschluß an den seriellen Port 2 des 
Apple-Ilc 

• kompatibel mit Appleworks, BASIC. 
SYSTEM, EDASM.SYSTEM, 
MERLIN.SYSTEM u.a. 

• programmierbar als selbständige 
Schaltuhr 

• acht digitale 100 mA-Ausgänge 

• acht digitale CMOS-Eingänge 

• inclusiv Programmdiskette für 
Apple-Ilc (Demo, Utilities) 

M2000: 387,- DM 
V.24-Kabel für llc: 67,- DM 

IDW-ELECTRONIC 

Max-Anderl-Straße 109, 8056 Neufahrn 
Telefon 081 65-3641 


APPLE & CP/M-80 & MS-DOS 
SOFTWARE & HARDWARE 

z. B. für APPLE II und KompaliblG 

Wir liefern die RAM-Karte (AE) für den Apple Ile mit max, 3 MB 


(Appleworksmitmehrals2 MB)! 64-K-Ausf.OM 650.- 

SpeeDemon 3.56 MHz Coproz. für ll+/e(McT).DM 700.- 

Anpassung für Appleworks 1.2 auf dem ll+/e. 

Original oder mit externer Tastatur. Anpassung in deutsch 

für SATURN 128 K und IBS AP331 MB! DM 170.- 

UPC-Programmer-Card 2716-128 komfortabel.DM 580.- 

72 I/O PortCard programmierbarDOS-i-CP/M .DM 350.- 

A016 Ch. 12 Bit. schnell! (Applied Eng.) . . .DM 1150.- 

PKASO/U-Printer-Karte (IS) _ DM 550.- 

CP/M-Plus-Card, 6 MHz. 64 K, CP/M 3.0 (ALS) DM 1150.- 

Timemaster IIH. 0., die Uhrenkarte! (AE).DM 540.- 

ELF kompl. Statistik-Software (TWG).DM 800.- 

Prime-Plotter-Gralik-Software (Primesoft).DM 900.- 

Z-RAM512KfürAPPLEIIc(AE) .DM 1250.- 

z. B. für IBM und Kompatible 

APPLE Turnover (Vertex) Lesen/Schreiben von Apple Oisks 

im IBM PC & Komp.DM1200.- 

XENO-COPY plus (Vertex) Lesen/Schreiben div. 

CP/M & MS-DOS Formate im IBM .OM 600.- 

ELF PC kompl- Statistik Software (TWG) DM 800.- 

PROM Bfaster 28-Pin (Apparat Ine.).. DM 620 - 

z. B. für alle Systeme 

Printerchanger 3 parall. Drucker auf 1 Micro 

inkl. Kabel/Netzteil (Keyzone) ,.. DM 570.- 

Printersharer 3 Micros auf 1 parall. Drucker 

inkl. Kabel/Netzteil (Keyzone). DM 460.- 

Shufflebuffer 64 K (IS).... * * * DM 1250.- 


Wir sind Import-Spezialisten und bieten Ihnen eine große Auswahl an Software 
und Hardware bedeutender Hersteller aus den USA und England. 
Informationen gegen DM 3 - in Briefmarken. 

WEISS COMPUTER Dipl.-Psych. Karl-Heinz Weiß 
Am Wiesenhof 17, 2940 Wilhelmshaven, Tel. 0 44 21/8 31 79 
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STRINGUTILS.I 


FUNCTION LENGTH(L:INTEGER 
BEGIN 

LENGTH:=0; 

#A 

;VAR S:CHAR):INTEGER; 

LDY 

#7 


LDA 

{^P),Y 


STA 

INY 

_T 

;S-Zeiger.L 

LDA 

(-SP) ,Y 


STA 

INY 

_T+1 

;S-Zeiger.H 

LDA 

(-SP) ,Y 


TAY 


;Länge von S 

DEY 


;Index auf String 

LDA 

#$20 

;Space 

FLLOOP CMP 

(-T).y 

;Vergleiche Zeichen 

BNE 

FLEXIT 

;Kein Space -> Fertig 

DEY 


;Weitertesten 

BPL 

FLLOOP 

;bis Stringanfang 

FLEXIT INY 

TYA 


;LENGTH zählt ab 1 

LDY 

#5 


STA 

# 

END; 

(^P),Y 

;Funktionswert 

FUNCTION P0S(L1:INTEGER; 

VAR S1;CHAR; 

BEGIN 

POS:=0; 

#A 

L2:INTEGER; 

VAR S2:CHAR):INTEGER; 

STX 

_T 


LDY 

#7 


LDA 

(-SP) ,Y 


STA 

INY 

_T+1 

;S2-Zeiger,L 

LDA 

(^P) .Y 


STA 

INY 

_T+2 

;S2-Zeiger.H 

LDA 

(-SP),Y 


STA 

_T+3 

;Länge von S2 

LDY 

+11 


LDA 

(_SP),Y 


STA 

INY 

_T+4 

;Sl-Zeiger.L 

LDA 

(-SP),Y 


STA 

INY 

_T+5 

;Sl-Zeiger.H 

LDA 

(-SP) . Y 


STA 

SEC 

_T+6 

;Länge von S1 

LDA 

_T+3 

;Länge von S2 

SBC 

_T+6 

;Länge von S1 

BCC 

PEXITl 

;Fehler, wenn L1>L2. 

STA 

_T+3 

:Testlänge von S2 

INC 

_T+3 

;+l -Korrektur 

LDX 

#0 

;Zähler für POS -1 

PLOOP0 LDY 

#0 

;Zähler für 

PLOOPl LDA 

(_T+4),Y 

;Zeichen aus S1 

CMP 

(_T+1).Y 

;Zeichen aus S2 

BNE 

INY 

PNEXTl 


CPY 

_T+6 

:Länge von S1 

BCC 

PLOOPl 


BCS 

PNEXTl INX 

PDONEl 


CPX 

_T+3 

;Länge von S2 

BCS 

PEXITl 

;fertig, wenn X>=L2. 

INC 

_T+1 

;Sl-Zeiger.L 

BNE 

PLOOP0 


INC 

_T+2 

;Sl-Zeiger.H 

BNE 

PLOOP0 

;Verweige immer. 

PDONEl INX 

TXA 


;POS-Werte von 1 an 

LDY 

#5 


STA 

(^P) ,Y 

;Funktionswert 

PEXITl LDX 

+ 

END: 

_T 



PROCEDURE C0NCAT(L1:INTEGER; VAR S1:CHAR; 


L2:INTEGER; VAR S2:CHAR; 

L3:INTEGER; VAR S3:CHAR); 

BEGIN 

#A 

STX _T 



LDY #5 

LDA {_SP),Y 
STA _T+1 

INY 

;S3-Zeiger,L 


LDA {_SP),Y 
STA _T+2 

INY 

LDA (^P),Y 

;S3-Zeiger 


STA _T+3 

;Länge von S3 


LDY #9 

LDA {_SP),Y 
STA _T+4 

INY 

LDA (^P),Y 

;S2-Zeiger,L 


STA _T+5 

;S2-Zeiger,H 


INY 

LDA (^P),Y 
STA _T+6 

;Länge von S2 


LDY #13 

LDA {^P),Y 
STA _T+7 

INY 

;Sl-Zeiger. L 


LDA (_SP).Y 
STA _T+8 

;Sl-Zeiger.H 


INY 

LDA (^P),Y 
STA _T+9 

;Länge von S3 


LDY #0 


CLOOPI 

LDA (_T+7),Y 

;Von S1 nach 


STA (_T+1).Y 

;S3 kopieren. 


INY 

CPY _T+9 

BCS CIDONE 

;Länge von S1 


CPY _T+3 

;Länge von S3 


BCC CLOOPI 


CIDONE 

SEC 

LDA _T+3 

;Länge von S3 


SBC _T+9 

;Länge von S1 


BCC C2D0NE 

;fertig, wenn L1>=L3. 


BEQ C2D0NE 

STA _T+10 

;Restlänge von S3 


CLC 

LDA _T+1 

;S3-Zeiger,L 


ADC _T+9 

;Länge von S1 


STA _T+1 

LDA _T+2 

;S3-Zeiger.H 


ADC #0 

STA _T+2 

;Carry-Flag 


LDY #0 


CL00P2 

LDA (_T+4),Y 

:Von S2 nach 


STA (_T+1),Y 

;S3 kopieren 


INY 

CPY _T+6 

;Länge von S2 


BCS C2D0NE 

CPY _T+10 

BCC CL00P2 

;Restlänge von S3 

C2D0NE 

SEC 

LDA _T+10 

;Restlänge von S3 


SBC _T+6 

;Länge von S2 


BCC C3D0NE 

;fertig, wenn S2>= 


BEQ C3D0NE 

;Restlänge von S3. 


STA _T+10 

;Neue Restlänge S3 


LDA #$20 

LDX #0 

;Space 

CL00P3 

STA (_T+1),Y 
INY 

INX 

CPX _T+10 

BCC CL00P3 

;Neue Restlänge S3 

C3D0NE 

# 

END: 

LDX _T 
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PROCEDURE DELETE(L1,L2,L3 

INTEGER; VAR SrCHAR); 



LDA 

_T+1 

S-Zeiger.L 

BEGIN 






ADC 

_T+3 

Länge für DELETE 

#A 






STA 

-T+8 

S-Zeiger danach,L 


LDY 

^5 




LDA 

_T+2 

S-Zeiger.H 


LDA 

i-SP),Y 




ADC 

+0 

Carry 


STA 

_T+1 

S-Zeiger.L 



STA 

_T+9 

S-Zeiger danach.H 


INY 









LDA 

(-SP),Y 




LDY 

#0 



STA 

_T+2 

S-Z6iger.H 


DCOPYl 

LDA 

(_T+8),Y ; 

:S-Zeichen danach 


INY 





STA 

(_T+1).Y ; 

:S-Zeichen davor 


LDA 

(^P) ,Y 




INY 




STA 

_T+3 

Länge für DELETE 



CPY 

_T+7 

;Restlänge DELETE 


LDY 

#9 




BCC 

DCOPYl 



LDA 

{-SP),Y 








STA 

_T+4 

Position für DELETE 


DFILL0 

LDA 

*$20 

:Space 


DEC 

_T+4 . 

-1 Korrektur 


DFILLl 

STA 

(_T+1),Y ; 

:S-Leerzeichen 


LDY 

#11 




INY 




LDA 

(-SP},Y 




CPY 

_T+6 

;Restlänge von S 


STA 

_T+5 

Länge von S 



BCC 

DFILLl 


; 






BCS 

DEXITl 



SEC 









SBC 

-T+4 

Position für DELETE 


DOVFLl 

LDY 

+0 



BCC 

DEXITl 

fertig, wenn >=L, 



BEQ 

DFILL0 



BEQ 

DEXITl 












DEXITl 

NOP 




STA 

_T+6 

Restlänge von S 


# 









END; 





CLC 









LDA 

_T+1 

S-Zeiger.L 







ADC 

_T+4 

Position für DELETE 







STA 

_T+1 



PROCEDURE INSERT(LI,L2,L3: 

INTEGER; VAR S1,S2:CHAR); 


LDA 

_T+2 

S-Zeiger.H 


BEGIN 





ADC 

#0 

Carry-Flag 


#A 





STA 

_T+2 




LDY 

#5 








LDA 

(_sp) ,y 



SEC 





STA 

_T+1 ; 

:S2-Zeiger.L 


LDA 

_T+6 

Restlänge von S 



INY 




SBC 

_T+3 

Länge für DELETE 



LDA 

(-SP),Y 



BCC 

DOVFLl 

Oberlauf 



STA 

_T+2 ; 

:S2-Zeiger.H 


BEQ 

DOVFLl 




INY 




STA 

_T+7 ; 

Restlänge DELETE 



LDA 

(-SP) ,Y 


; 






STA 

„T+3 i 

: Sl-Zeiger.L 


CLC 





INY 









LDA 

(-SP) ,Y 


PROCEDURE COPY(Ll:INTEGER; 

; VAR S1:CHAR; 



STA 

_T+4 i 

:Sl-Zeiger.H 



L2:INTEGER 

; VAR S2:CHAR); 



INY 



BEGIN 






LDA 

(-SP) ,Y 


#A 






STA 

_T+5 ; 

:Länge INSERT 


LDY 

#5 




LDY 

#11 



LDA 

(^P) .Y 




LDA 

(-SP),Y 



STA 

-T+1 

;S2-Zeiger.L 



STA 

_T+6 i 

:Position INSERT 


INY 





DEC 

_T+6 ; 

:-l Korrektur 


LDA 

(-JSP) ,Y 




LDY 

#13 



STA 

_T+2 

;S2-Zeiger.H 



LDA 

(-SP) . Y 



INY 





STA 

_T+7 ; 

;Länge von S2 


LDA 

(-SP) ,Y 








STA 

_T+3 

;Länge von S2 



SEC 









SBC 

_T+6 i 

; Position INSERT 


LDY 

#9 




BCC 

lEXITl ; 

fertig, wenn >=L2 


LDA 

(-SP),Y 




BEQ 

lEXITl 



STA 

_T+4 

;Sl-Zeiger.L 


E 





INY 





STA 

_T+8 ; 

;Restlänge von S2 


LDA 

(-SP),Y 



; 





STA 

_T+5 

;Sl-Zeiger.H 



CLC 




INY 





LDA 

_T+1 ; 

;S2-Zeiger.L 


LDA 

(_SP), Y 




ADC 

_T+6 ; 

:Position INSERT 


STA 

_T+6 

;Länge von S1 



STA 

_T+1 


r 






LDA 

_T+2 ; 

;S2-Zeiger.H 


LDY 

#0 




ADC 

+0 ; 

:Carry-Flag 

CPLOOP 

LDA 

(_T+4),Y 

;Zeichen aus S1 



STA 

_T+2 



STA 

(_T+1).Y 

;nach S2 kopieren 







INY 





SEC 




CPY 

_T+6 

;Länge von S1 



LDA 

_T+8 ; 

;Restlänge von S2 


BCS 

CPDONE 




SBC 

_T+5 ; 

:Länge INSERT 


CPY 

_T+3 

;Länge von S2 



BCC 

lOVFLl ; 

;Überlauf 


BCC 

CPLOOP 




BEQ 

OVERWR 








STA 

_T+9 i 

:Restlänge INSERT 

CPDONE 

LDA 

_T+6 

;Länge von S1 


E 





CMP 

_T+3 

;Länge von S2 



CLC 




BCS 

CPEXIT 

;fertig, wenn >=S2. 



LDA 

_T+1 

S2-Zeiger.L 

: 






ADC 

_T+5 

Länge INSERT 


LDA 

#$20 

;Space 



STA 

_T+10 

S2-Zeiger danach.L 

CPFILL 

STA 

(_T+1),Y 

;S2 auffüllen 



LDA 

_T+2 

S2-Zeiger.H 


INY 





ADC 

#0 

Carry-Flag 


CPY 

_T+3 

;Länge von S2 



STA 

_T+11 

S2-Zeiger danach.H 


BCC 

CPFILL 













LDY 

_T+9 

Restlänge INSERT 

CPEXIT 

NOP 





DEY 


-1 Korrektur 

* 





ICOPYl 

LDA 

(_T+1), Y 

S2-ZeiGhen davor 

END; 






STA 

(_T+10),Y 

S2-Zeichen danach 
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iui 


1 

lj:> 




DEY 




BPL 

ICOPYl 


OVERWR 

LDY 

_T+5 

:Länge INSERT 


DEY 


;-l Korrektur 

IC0PY2 

LDA 

(_T+3),Y 

;Sl-Zeichen 


STA 

(_T+1),Y 

;in S2 einfuegen 


DEY 




BPL 

IC0PY2 



BMI 

lEXITl 


lOVFLl 

LDA 

_T+8 

;Restlänge von S2 


STA 

_T+5 

;Länge INSERT 


BNE 

OVERWR 

;Verzweige immer 

lEXITl 

NOP 



# 




END; 





STRING.DEMOS.P 

PROGRAM STRINGDEMOS(INPUT,OUTPUT); 

VAR A,B,C:ARRAY [1..16] OF CHAR; 

D,E.F:ARRAY [1..40] OF CHAR; 

G,H,I:ARRAY [1..64] OF CHAR; 

CI,C2;CHAR; 

*I STRINGUTILS-I 

BEGIN 

{Die Funktion LENGTH 

Die Funktion LENGTH erzeugt einen INTEGER-Wert, 
welcher die Länge einer Zeichenkette 
(ARRAY OF CHAR) angibt. 

Syntax: 

LENGTH (Längenbyte der Zeichenkette, 

Name der Zeichenkette [1]) 

Beispiel:} 

A:='1234567 
WRITELN; 

WRITELN(A); 

WRITELN('LENGTH=',LENGTH(16,A[1])); 


(Die Funktion POS 

Die Funktion POS erzeugt einen INTEGER-Wert, 

welcher die Position angibt, ab der eine 

Zeichenkette S1 in einer Zeichenkette S2 enthalten ist. 

Syntax: 

POS (Längenbyte der Zeichenkette Sl, Name von S1 [1], 
Längenbyte der Zeichenkette S2, Name von Sl [1]); 

Beispiel;} 

D:='Take the bottle with a metal cap '; 

B:='tal 

WRITELN; 

WRITELN(D); 

WRITELN(B); 

WRITELN('P0S=’,POS(LENGTH(16,B[l]),Btl].40,D[l])); 


(Die Prozedur CONCAT 

Die Prozedur CONCAT erzeugt eine Zeichenkette S3, 
welche aus den beiden Zeichenketten Sl und S2 
zusammengesetzt wird. 

Syntax 

CONCAT (Längenbyte von Sl, Name von Sl [1], 

Längenbyte von S2, Name von S2 [1], 

Längenbyte von S3, Name von S3 [1]); 

Beispiele:} 


C:=’12345 '; 

E:='Dies hier ist ein sehr langer String. '; 

CONCAT(LENGTH(16,C[1]),C[1],LENGTH(40,E[1]),E[1],64,G[1]); 

WRITELN; 

WRITELN(C); 

WRITELN(E); 

WRITELN(G}; 


(Die Prozedur COPY 

Die Prozedur COPY erzeugt eine Zeichenkette S2, die einen 
Teil aus der Übergabe-Zeichenkette Sl enthält. 

Syntax: 

COPY (Anzahl der zu uebertragenden Zeichen 
aus Sl, Name von Sl 

[Position in Sl, ab der kopiert werden soll], 
Längenbyte von S2, Name der Zeichenkette S2 [1]); 

Beispiel:} 

WRITELN; 

Cl:=’s'; 

F:='Keep something here '; 

WRITELN(F); 

COPY ( 9.F[POS(1,C1,40.F[1])],40,F[1]); 

WRITELN(F); 


(Die Prozedur DELETE 

Die Prozedur DELETE löscht einen Teil 
aus einer Zeichenkette S. 

Syntax; 

DELETE (Längenbyte der Zeichenkette, Startposition 
zum Löschen. Anzahl der Zeichen zu Löschen, 
Name von S [1]); 

Beispiel:} 

I:= 'This String has far too many 

characters in it ' ; 

(Aus satztechnischen Gründen wurde Zeile geteilt!} 
WRITELN: 

WRITELN(I); 

DELETE{64.16,8,I[1]); 

WRITELN(I); 


(Die Prozedur INSERT 

Die Prozedur INSERT fuegt einen Teil aus einer 
Zeichenkette Sl in eine bestehende Zeichenkette S2 ein. 

Syntax: 

INSERT (Längenbyte der Zeichenkette S2, Startposition 
zum Einfügen, Anzahl der Zeichen einzufügen, 

Name von Sl [Anfangsposition von Sl], 

Name von S2 [1]); 

Beispiel:} 

D:='Demonstriere Einfügung '; 

B:='diese 
WRITELN; 

WRITELN(D); 

WRITELN(B); 

C2:='E': 

INSERT(40,POS(1,C2,40,D[1]),LENGTH(16,B[1])+l,B[l],D[1]); 
WRITELN(D) 

END. 


Hinweis; Wenn Sie das Programm abtippen, so ge¬ 
ben Sie bitte bei den Kommentaren keine Umlaute 
ein. 
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Programming Toolkits 

für Kyan-Pascal 2.0 


Toolkit I: System Utilities: Club- 

Preis DM 118,-; Normalpreis DM 
148,- (lieferbar) 

Toolkit II: Mouse Text: Club- 
Preis DM 118,-, Normalpreis DM 
148,- (lieferbar) 

Tooikit III: Advanced Graphics: 

Club-Preis DM 118,-, Normalpreis 
DM 148,“ (Mitte Juni) 

Toolkit IV: Turtle Graphics: 

Club-Preis DM 68,-, Normalpreis 
DM 88,- (lieferbar) 

Toolkit V: Mouse Graphics: 

Club-Preis DM 158,-, Normalpreis 
DM 198,- (Mitte Juli) 

Alle Utilities werden als teils beid¬ 
seitig bespielte Disketten geliefert, 
die neben den Include-Files (meist 
Quelltexte) diverse Demos enthal¬ 
ten. Die Anleitungen selbst sind 
Loseblattlieferungen (z.B. bei den 
System Utilities 52 Druckseiten), 
die für den grauen Ordner von Ky- 
an 2.0 bestimmt sind. Zum Club- 


Preis werden nur Mitglieder des 
Kyan-Clubs beliefert. 

Toolkit I: System Utilities 

Diese Utilities decken verschiede¬ 
ne Bereiche ab: 

1. ProDOS-Utilities: Delete, Re- 
name, Copy, Set-Pefix, Get-Prefix, 
Lock, Unlock, Make-Directory, 
Get-Directory, Remove-Directory, 
Scan-File, Format, Print-File, 
Bsave, Bload, Set-Time, Get-Time, 
Set-Date, Get-Date, Get-Clock, 
Set-Clock, Find-Clock. 

2. Maus und Joystick: Find-Mouse, 
Init-Mouse, End-Mouse, Home- 
Mouse, Mouse-Click, Mouse-held, 
Mouse-moved, Mouse-x, Mouse- 
y, Set-Mouse-xy, Set-x-Bounds, 
Set-y-Bounds, Print-Mouse-Char, 
Button-0, Button-1, Joystick-x, 
Joystick-y. 

3. Bildschirmsteuerung (funktio¬ 
nieren teilweise nur auf lle/c): 
Clear-Screen, Clear-Line, Clear- 
End-of-Llne, Clear-End-of-Page, 
Inverse, Normal, Tab, Scroll-up, 


Scroll-down, Col-80, On-40, On- 
80, Screen-Bottom, Screen-Top, 
Screen-Full, Cursor-x, Cursor-y, 
Get-Char, Machine-Identification. 

4. Zufallszahlen: Random im Be¬ 
reich min,.max, Rnd im Bereich 
0..1, Seeding. 

5. Zahlenkonvertierungsroutinen: 
Real - String, String - Real, Integer 
- String, String - Integer, 

6. Sortieren (alphabetisch und nu¬ 
merisch) sowie Mischen (bis zu 5 
Files). 

7. Line Parsing Routine. 

Toolkit II: Mouse Text 

Diese Utilities umfassen mehrere 
Dutzend Befehle für Fenstertech¬ 
nik usw. 

1. Cursor-Befehle: Set-Cursor, 
Obscure-Curser, Hide-Cursor, 
Show-Cursor. 

2. Interrupts: Check-Events, Get- 
Event, Post-Event, Set-Key-Event, 
Flush-Event, Peek-Event. 

3. Menü-Befehle: Inlt-Menu, Set- 
Menu, Menu-Select, Menu-Key, 
High-Light-Menu, Disable-Menu, 


Disable-Item, Check-Item, Set- 
Mark. 

4. Kontrollbefehle: Find-Control, 
Set-Controi-Max, Track-Thumb, 
Update-Thumb, Activate-Control. 

5. Fensterbefehle: Init-Window- 
Margin, Close-Window, Open- 
Window, Flnd-Window, Front-Win¬ 
dow, Select-Window, Drag-Win- 
dow, Grow-Window, Screen-to- 
Window, Window-to-Screen, Clo- 
se-all, Window-Char, Window- 
String, Window-Block, Window- 
Text, Window-Op. 

Toolkit IV: Turtle Graphics 

Diese Diskette enthält diverse Hi- 
res- und Ton-Routinen. 

1. Turtle-Befehle: Init-Turtle, Turt- 
le-x, Turtle-y, Turtle-Angle, Graf- 
Mode, Text-Mode, Pen-Color, 
Turn, Turn-to, Move, Move-to, 
View-Port, Full-Port, Fill-Port, Fill- 
Area, Save-Hires, Load-Hires. 

2. Ton-Befehle: Beep, Note, 
Clock, Phaser. 

3. Balkendiagramme usw,: Bar- 
Chart, Pie-Chart, Plot-x-y. 


Hüthig Software Service 

Postfach 102869 Heidelberg 


Double-Hires-Tools 


von Matthias Meyer 




Im September 1986 erscheinen zwei preisgünstige Programmpakete für doppelt-hochauflösende Grafik auf dem Apple llc und Ile 
(mit 64K-Karte): 



DHGR-Tool für Applesoft 

Diskette und Manual, Einführungspreis DM 28,- 

Diese Ampersand-Programmsammlung für Double-Hires und 
-Lores läuft unter Applesoft, und zwar sowohl unter DOS 3.3 als 
auch unter ProDOS. Unter anderen wurden folgende Befehle imple¬ 
mentiert: 

&1 und &2 wählen 1. und 2. Zeichensatz, 

&CLEAR löscht die DHGR-Seite, 

&COLOR= und &HCOLOR= wählen Double-Lores/Hires-Farben, 
&DRAW und &XDRAW zeichnen DHGR-Shapes, 

&DRAW AT zeichnet Grafikbeschriftungen (ASCII-Strings), 

&GR, &HGR, &H, &TEXT, &T usw. schalten verschiedene Grafik- 
und Text-Modi ein, 

&HLiN und &VLtN plotten waagrechte und senkrechte Double- 
Lores-Linien, 

&HPLOT und &XHPLOT plotten DHGR-Linien, 

&SCALE= und &ROT bestimmen Größe und Rotation von Shapes, 
&LOAD und &SAVE laden und speichern Grafikseiten, 

&HELP zeigt alle Befehle an, 
und anderes mehr. 


DHGR-Tool für Kyan-Pascal 

Diskette und Manual, Einführungspreis DM 28,- 

Das Kyan-Pascal-Tool umfaßt ähnliche Prozeduren wie die obigen 
Ampersand-Routinen, wobei jedoch noch einige Befehle, z. B. Pro- 
cedure Swaphires, Procedure Background usw., sowie einige 
Datentypen, z. B. Shape, Chrset usw. zusätzlich aufgenommen 
worden sind. 

Bei dem Kyan-Too! sind die Zeichensätze und die „Lookup“-Tabel- 
len für die sehr schnellen Plotbefehle auf die 64K-Karte gelegt 
worden, und das Hauptmodul selbst befindet sich in der Bank 2 der 
Language-Card, ohne Kix-Reboot zu zerstören. Damit eignet sich 
dieses Kyan-Modul besser als andere Kyan-Grafik-Programme zur 
Einbindung in eigene Anwendungsprogramme. 


Hüthig Software Service • Postfach 10 28 69 ■ 6900 Heidelberg 1 


Peeker 9/86 


55 







Buchkalkulation 

Ein Applesoft-Kalkulationsprogramm für Verlage 



von Ulrich Stiehl 

Kalkulator (calculus = Rechenstein auf 
dem Rechenbrett, calculator = Rechen¬ 
meister) und Computer (to compute 
Computern computator = Berechner) ge¬ 
hen beide auf Wörter mit derselben 
Grundbedeutung zurück. Es verwundert 
deshalb nicht, daß die Kalkulation als die 
ureigenste Aufgabe des Computers ange¬ 
sehen wird. Ergo computemus! 

Das nachfolgende Kalkulationsprogramm 
EINZEL.KALK ist primär für Buchverlage 
gedacht, doch kann es zugleich als Muster 
für Kalkulationsprogramme in anderen 
Branchen dienen. Als eines meiner ersten 
Apple-Programme (das allerdings später 
überarbeitet wurde) benutzt EINZEL.KALK 
weder Peeks noch Pokes; selbst PRINT 
USING wurde durch eine Applesoft-Routi- 
ne ersetzt. 

1. Wie werden Bücher kalkuliert? 

Aus Platzgründen ist es an dieser Stelle 
nicht möglich, auf die Feinheiten der 
Buchkaikulation einzugehen. Interessierte 
Leser seien deshalb auf die zwei einzigen 
seit dem Krieg erschienenen Monogra¬ 
phien verwiesen, die sich mit der Buchkal¬ 
kulation befassen, nämlich 

- Preispolitik und Kalkulation im Buchver¬ 
lag, Poeschel-Verlag, Stuttgart 1964 (ver¬ 
griffen) 

- Die Buchkaikulation. Mit 75 Musterkalku¬ 
lationen, Harrassowitz-Verlag, 3., verb. 
Aufl. 1983 (enthält im Anhang kostentheo¬ 
retische Erläuterungen zu dem gelisteten 
Programm) 

1.1. Preisbindung 

Die Kalkulation (= im engeren Sinne das 
Berechnen von Preisen) bezieht sich im 
Verlagswesen grundsätzlich auf die sog. 
Ladenpreise (Gegensatz: Listenpreise 
usw.), die als Endabnehmerpreise der ver¬ 
tikalen Preisbindung unterliegen, die auf¬ 


grund des Kartellgesetzes für typische 
Verlagserzeugnisse, d.h. für Bücher und 
Zeitschriften, nicht aber für Software und 
AV-Medien^\Zulässig ist (UWG §16). Preis¬ 
bindung imp)i^^ert Gleichbehandlung der 
Endabnehmer man erhält überall in 
Deutschland das gleiche Buch zum glei¬ 
chen'Preis - und Festpreispolitik über ei¬ 
nen längeren Zeitraum - man kann nicht 
heute den Preis herauf- und morgen wie¬ 
der heruntersetzen. Obgleich die vertikale 
Preisbindung eigentlich im Widerspruch 
zur freien Marktwirtschaft steht, wurde sie 
vom Gesetzgeber aus kulturellen Gründen 
ausdrücklich sanktioniert. Es verwundert 
deshalb nicht, daß die Bundesrepublik das 
Land mit der relativ größten Distributions¬ 
dichte (ca. 6.000 Buchverkaufsstellen) 
und der relativ größten Jahrestiteiproduk- 
tion (ca. 50.000 Titel) ist. So gibt es bei¬ 
spielsweise in den USA relativ weniger 
Buchhandlungen und zugleich relativ 
mehr Analphabeten als in der Bundesre¬ 
publik. Der Gesetzgeber hat sich also eini¬ 


ges gedacht, als er die Preisbindung ein¬ 
führte, denn die Verlagswirtschaft wird im 
Gegensatz zu anderen kulturwirtschaftli¬ 
chen Einrichtungen weder subventioniert 
(wie das Theater usw.) noch in staatlicher 
Regie geführt (wie Bibliotheken usw.). 

1.2. Kalkulationselemente 

Ein vereinfachtes Kalkulationsschema 
sieht etwa wie folgt aus: 

(1) Herstellungsstückkosten 


+ 

(2) 

Honorarstückkosten 


= 


Einstandspreis 


+ 

(3) 

Verlagsstückkosten 




Selbstkostenpreis 


+ 

(4) 

Verlagsstückgewinn 


= 


Nettopreis 


+ 

(5) 

Stückrabatt 


= 


Ladenpreis ohne MwSt 

NLp 

+ 

(6) 

Mehrwertsteuer 




Ladenpreis 

Lp 
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(1) Herstellungskosten sind die techni¬ 
schen Produktionskosten, die sich in auf- 
iagenvariable Einzelkosten (Papierkosten, 
Einbandmatehalkosten, Fortdruckkosten 
usw.) sowie auflagenfixe Einzelkosten 
(Satzkosten, Korrekturkosten, Montage¬ 
kosten usw.) aufteilen lassen. Im Gegen¬ 
satz zur landläufigen Meinung verteuert 
nicht der Einband das Buch, sondern die 
zu geringe Druckauflage, weil dann die 
Fixkosten auf eine zu kleine Auflage ver¬ 
teilt werden müssen. Herstellungskosten 
gehören im Verlagswesen übrigens zu 
den sog. Fremdkosten, weil die Produktion 
fast ausnahmslos in Fremdbetrieben 
(Druckereien, Buchbindereien usw.) er¬ 
folgt. 

(2) Honorarkosten können als Pauschal¬ 
honorar auflagenfixe oder häufiger als Ab¬ 
satzhonorar auflagenvariable Kosten sein, 
die dann in der Regel als Prozentsatz vom 
Laden- oder Nettopreis berechnet wer¬ 
den. Neben dem verlorenen Pauschalho¬ 
norar gibt es noch die anrechenbare (anr.) 
Honorargarantie, die mit dem Absatzhono¬ 
rar verrechnet wird. Auch die Honorarko¬ 
sten sind sog. Fremdkosten, weil Autoren 
im Hinblick auf den Verlag fast ausnahms¬ 
los selbständig schreiben und somit keine 
Veriagsmitarbeiter sind. 

(3) Verlagskosten sind überwiegend Ge¬ 
meinkosten für Gehälter, Steuern, Miete 
usw., doch gibt es auch Einzelkosten, z.B. 
Kommissionsgebühren im Falle einer sog. 
Fremdauslieferung. 

Hinsichtlich (4) Verlagsgewinn, (5) Ra¬ 
batt und (6) Mehrwertsteuer ergeben 
sich - ähnlich wie bei den Gemeinkosten 
- keine wesentlichen Unterschiede zu 
anderen Branchen. 


1.3. Kalkulationsziele 

Es gibt im Verlagswesen theoretisch 
sechs Kalkulationsziele oder Größen, die 
es zu errechnen gilt: 

- Ladenpreis: Wie hoch muß der Laden¬ 
preis (DS-Ladenpreis = Deckungsspan¬ 
ne-Ladenpreis) sein, wenn Verkaufsaufla¬ 
ge, Vollkosten und Gewinn vorgegeben 
sind? (Berechnung der Preisobergrenze) 

- Mindestladenpreis: Wie niedrig darf der 
Ladenpreis sein, wenn Verkaufsauflage 
und Vollkosten (MLp I = Mindestladen¬ 
preis I) oder Teilkosten (MLp II) vorgege¬ 
ben sind? (Berechnung der Preisunter¬ 
grenze) 

- Auflage: Wie hoch muß die Verkaufsauf¬ 
lage (DS-Verkaufsauflage) sein, wenn La¬ 
denpreis, Vollkosten und Gewinn vorge¬ 
geben sind? (Berechnung der Auflagen¬ 
obergrenze) 

- Deckungsaufiage: Wie niedrig darf die 
Verkaufsauflage sein, wenn Ladenpreis 
und Vollkosten (Deckungsauflage I) oder 


Teilkosten (Deckungsauflage II) vorgege¬ 
ben sind? (Berechnung der Auflagenun¬ 
tergrenze) 

- Kosten: Wie hoch dürfen oder wie nied¬ 
rig müssen bestimmte Kosten sein, wenn 
Ladenpreis, Verkaufsauflage und die an¬ 
deren Kosten vorgegeben sind? (Höchst¬ 
kostenberechnung) 

- Deckungsbeitrag: Wie hoch ist der Dek- 
kungsbeitrag und die als Prozentsatz vom 
Umsatz ausgedrückte Deckungsspanne, 
wenn Ladenpreis, Verkaufsauflage und 
Teilkosten vorgegeben sind? (Überschuß¬ 
berechnung) 


2. Das Kalkulationsprogramm 

Das Kalkulationsprogramm EINZEL.KALK 
ist ein Einzelkalkulatlonsprogramm zur Be¬ 
rechnung der verschiedenen Kalkulations¬ 
größen für einen einzelnen in Planung be¬ 
findlichen Buchtitel (Titelkalkulation als 
Vorkalkulation im Gegensatz zur Betriebs¬ 
abrechnung als Nachkalkulation usw.). 

2.1. Eingabedaten 

Das Programm unterscheidet zwischen 
den konstanten Eingabedaten, die bei je¬ 
der Buchkalkulatlon benötigt werden, 
nämlich 

- Mehrwertsteuersatz: Prozentsatz 

- Vertriebskostensatz/Np: Prozentsatz 
-Werbekostensatz/Np: Prozentsatz 

- Gemeinkostensatz/Np: Prozentsatz 
-Gewinnsatz/Np: Prozentsatz 

und den variablen Eingabedaten, die nur 
von Fall zu Fall mit Werten belegt werden, 
nämlich: 

-Ladenpreis: DM-Betrag 
-Verkaufsauflage: Stückzahl 

- Freiexemplare; Stückzahl 

- Rabattsatz: Prozentsatz 
-Vertriebsstückkosten: DM-Betrag 

- Fester Werbeetat: DM-Betrag 

- Fixe Herstellkosten: DM-Betrag 
-Var. Hersteilstückkosten: DM-Betrag 

- Honorarsatz/Lp: Prozentsatz 

- Honorarsatz/NLp: Prozentsatz 

- Honorarsatz/Np: Prozentsatz 
-Honorarstückkosten: DM-Betrag 
-Honorarpauschale: DM-Betrag 

- Honorarsatz/Lp (anr.): Prozentsatz 

- Honorarsatz/NLp (anr.): Prozentsatz 
-Honorarsatz/Np (anr.): Prozentsatz 

- Honorarstückkosten (anr.): DM-Betrag 

- Honorargarantie (anr.); DM-Betrag 

- Sonstige Kosten: DM-Betrag 

- Sonstige Erlöse: DM-Betrag 

Die Druckauflage taucht bei den variablen 
Eingabedaten nicht auf, weil sie sich aus 
der Differenz zwischen Verkaufsauflage 
und Freiexemplaren errechnet. 


2.2. Ausgabedaten 

Bei den Ausgabedaten versteht sich die 
nachfolgende Aufstellung von selbst; 

Umsatz 

- Vertriebskosten 

- Werbekosten 

- Herstellungskosten 

- Honorarkosten 

- Sonstige Kosten 
+ Sonstige Erlöse 

= Deckungsbeitrag 

* Deckungsspanne in Prozent 

- Gemeinkosten 


= Gewinn 

* Gewinnspanne in Prozent 

Investitionskosten 
Absatzhonorar (anrechenbar) 

Die Investitionskosten sind die vor dem 
Verkauf des ersten Exemplares anfallen¬ 
den Gesamtausgaben einschließlich einer 
möglichen Honorargarantie, die später mit 
dem anrechenbaren Absatzhonorar auf¬ 
saldiert wird. 

Deckungsspanne-Ladenpreis 
Deckungsspanne-Verkaufsauflage 
Mindest-Ladenpreis I 
Mindest-Ladenpreis II 
Deckungsauflage I 
Deckungsauflage II 

Diese Ausgabedaten sind im obigen Ab¬ 
schnitt 1.3 definiert worden. Zum besse¬ 
ren Verständnis rechne man im Bedarfsfall 
einige fiktive Zahlenbeispiele durch. Dies 
Ist jedoch noch nicht alles, denn es kön¬ 
nen zusätzlich Alternativkalkulationen 
durchgespielt sowie verschiedene Grafi¬ 
ken geplottet werden. 


2.3. Programmaufbau 

Hinweis: Die Buchstaben (a) bis (m) be¬ 
ziehen sich auf die gestrichelten Trennli¬ 
nien in dem nachfolgend gelisteten Pro¬ 
gramm EINZEL.KALK. 

Beim Programmstart (a) werden zunächst 
die Hires-Shapes für die Grafikbeschrif¬ 
tung (k) erzeugt und dann die Tabellenbe¬ 
schriftung (I) für den Apple lle/c (EIN¬ 
ZEL.KLEIN) oder für den alten Apple II + 
(EINZEL.GROSS) sowie die konstanten 
Eingabedaten EINZEL.KONST (m) einge¬ 
lesen. Dann erscheint das Hauptmenü (b). 
Zunächst gibt man die neuen Daten ein (c) 
und kann dann zwischen Eingabekontrolle 
(d), Eingabekorrektur (e), Bildschirm- oder 
Druckerberechnung (f), Änderung- und 
Abspeicherung von Eingabekonstanten 
(h), Plotten und Abspeichern der Kurven¬ 
grafiken (i) und Alternativkalkulation (j) 
wählen. 

Das Kernstück des Programms Ist der 
Rechenteil (g), der beim Plotten der Um¬ 
satz- und Kostenkurven über 200mal auf¬ 
gerufen wird. Man ändere deshalb ggf. 
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Programmzeile 528, falls gestrichelte Kur¬ 
ven ausreichen. 

Das /App/esoff-Programm EINZEL.KALK 

benutzt folgende Speicherverteilung: 

$0800 ff.: EINZEL.KALK 

$4000 ff.: HGR-Seite2 

$6000 ff.: HGR-Shapes 

$6400 ff.: Variablen 

Bei einem Applesoft-Programm dieser 
Größe bietet sich eine Compilierung an, 
die wegen der vielen GOTOs und GO- 
SUBs das Programm 5-10mal schneller 
macht. Für die Compilierung mit dem Mi- 
crosoft-TASC-Compiler müssen die Zei¬ 
len 632-832 gestrichen und folgende Zei¬ 
len geändert werden: 

100 PRINT CHR$ (21); HOME 

452 HOME : HGR : POKE - 16302,0: 

POKE 232,0: POKE 233,9: 

HCOLOR= 7: SCALE= 1: R0T= 0 
528 Y = U / 105:SD = 1; REM *** LOT-FLAG 
562 IF X$ = "3" THEN POKE - 16304,0: 

POKE ~ 16297.0: POKE - 16300,0: 

POKE - 16302,0: GOTO 554 
566 PRINT : PRINT CHR$ (4) 

"BSAVE"X$’', A$2000,L$1FF0" : GOTO 168 

Die Hires-Shapes müssen gesondert ab¬ 
gespeichert und zweckmäßigerweise mit 
der TASC-RUNTIME zu EINZELRUN- 
TIME vereinigt werden, wobei zur Compi¬ 
lierung als „Origin“ für die Runtime$0D00 
anzugeben ist. Die Peeker-Sammeldisk 
enthält bereits das fertig compilierte Pro¬ 
gramm. Die TASC-Verslon hat folgende 
Speicherverteilung; 

$0800 ff. EINZEL.TASC (Start-Programm) 
$0900 ff.: EINZEL.RUNTIME, und zwar 


$0900-$0CE7: Shapes 
$0D00-$1CAF: Runtime 
$2000 ff.: HGR-Seite 1 
$4000 ff.: EINZEL.OBJ 



LP+KO V HR, HONEY= THE FAST BUCK 



Beispiel für Stückkostenkurve 


2.4. Zu den Abbildungen 

Die Ladenpreisgrafik (hier Gesamtkosten¬ 
kurve) und Aufiagengrafik (hier Stückko¬ 
stenkurve) ergeben sich, wenn man ne¬ 
ben den Konstanten folgende Werte ein¬ 
gibt: 

Ladenpreis: DM 28,- 
Verkaufsauflage: 3000 Ex. 

Freiexemplare: 50 Ex. 

Rabattsatz: 30% 

Fixe Herstellkosten: DM 8000,- 
Var. Herstellkosten: DM 2,50 

Kurzhinweise 

1. Zweck: 

Buchkalkulationsprogramm: als Einzelpro¬ 
duktkalkulation für andere Branchen adap¬ 
tierbar. 

2. Konfiguration: 

Apple ll-h/e/c; DOS 3.3; das nicht-compi- 
lierte Applesoft-Programm läuft auch unter 
ProDOS 

3. Test: 

RUN EINZEL.TASC oder RUN EINZEL¬ 
.KALK 

4. Sammeldisk: 

EINZEL.TASC 

EINZEL.RUNTIME 

EINZEL.OBJ 

(TASC-Module) 

EINZEL.KALK 

(Applesoft-Programm) 

EINZELKONST 

EiNZELKLEIN 

EINZEL.GROSS 

(Daten-Textfiles) 


EINZEL.KALK 


-(a) 

100 PRINT CHR$ (21): HOME : LOMEM: 25600: PRINT "ZEICHENSATZ 
ERZEUGEN...": GOSUB 632: REM AB $6000 
102 ONERR GOTO 108 

104 DIM A(5),A$(5),S(19),S$(19),T(19),T$(19) 

106 GOTO 118 

108 PRINT : PRINT CHR$ (4)"CL0SE": PRINT CHR$ (4)"PR#0" 

110 TEXT : HOME : PRINT "SIE HABEN FEHLER-NR. " PEEK (222)" 
GEMACHT" 

112 HTAB 1: VTAB 5: PRINT "W = WEITER GET X$: IF X$ < > "W" 
THEN 112 
114 GOTO 168 

116 REM A$(l..,5)=K0NSTANTEN; 

S$(0...S)=EINGABE;T$(0...T)=AUSGABE 
118 TEXT : HOME : PRINT "KLEINSCHREIBUNG J/N 
120 GET X$: IF X$ < > "J" AND X$ < > "N" THEN 120 
122 IF X$ = "J" THEN X$ = "EINZEL.KLEIN": GOTO 126 
124 X$ = "EINZEL.GROSS" 

126 PRINT : PRINT CHR$ (4)"0PEN"X$: PRINT CHR$ (4)"READ"X$ 

128 FOR Z = 1 TO 5: INPUT A$(Z): NEXT :S = 19: FOR Z = 0 TO S: 

INPUT S$(Z): NEXT :T = 19: FOR Z = 0 TO T: INPUT T$(Z): NEXT 
130 PRINT CHR$ (4)"CL0SE" 

132 PRINT CHR$ (4)"0PEN EINZEL.KONST": PRINT CHR$ (4)"READ 

EINZEL.KONST"; FOR Z = 1 TO 5; INPUT A(Z): NEXT : PRINT CHR$ 
(4)"CL0SE" 

134 REM *** PRINT USING 

136 K2 = 100:K7 = 9999990:K6 = 999990: GOTO 154 

138 K = INT (X): IF ABS (X) > K7 THEN X$ = "ZU GROSS": RETURN 

140 IF K = X THEN X$ = STR$ (X) + ".00": RETURN 


142 K = INT (X * K2 + *5) / K2:X$ = STR$ (K): IF K = INT (K) THEN 
X$ = X$ + ",00": RETURN 
144 IF K < 1 AND K > 0 THEN X$ = "0" + X$ 

146 IF K > - 1 AND K < 0 THEN X$ = "-0." + MID$ {X$,3,2) 

148 IF MID$ (X$, LEN (X$) - 2,1) = "." THEN RETURN 
150 X$ = X$ + "0": RETURN 
152 REM *** DIVERSE TEXTE 
154 R$ = "1 = ZURUECK " 

156 R0$ = " 

158 Rl$ = "-" 

160 R3$ = "IST DRUCKER EINGESCHALTET ??" 

162 R7$ = "DATEN UNVOLLSTAENDIG" 


164 

E$ = " 



_ ": REM *** AUSPUNKTIERUNG 

166 

REM 

MENUE 

168 

TEXT : 

HOME : INVERSE : 


PRINT 

11 


EINZELKALKULATION 


NORMAL 

: PRINT 

170 

PRINT 

" 

VON U. STIEHL * VERSION V. 1.9.f 

172 

PRINT 


PRINT : 


PRINT 

" 

1 

NEUEINGABE" 

174 

PRINT 

" 

2 

EINGABEKONTROLLE" 

176 

PRINT 

" 

3 

EINGABEKORREKTUR" 

178 

PRINT 





PRINT 

" 

4 

BILDSCHIRMBERECHNUNG" 

180 

PRINT 

" 

5 

DRUCKERBERECHNUNG" 

182 

PRINT 





PRINT 

" 

6 

GRAFIK" 

184 

PRINT 

" 

7 

KONSTANTENLISTE" 

186 

PRINT 

" 

8 

ALTERNATIVKALKULATION" 

188 

PRINT 





PRINT 

" 

9 

ENDE" 


58 
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n - ^ AppUsoFr^ 


190 INVERSE : FOR X = 1 TO 18: HTAB 1: VTAB X: PRINT " : HTAB 


Bl + S(6) + S(2) * S{7):BA = S{0) * B2 * B3 - S(0) * B4 - 

39: VTAB X: PRINT " ";: NEXT : FOR X = 1 TO 39: VTAB 19: HTAB 


B6:BB = B2 * (B3 - A(4)):BC = S(0) * B4 + B6 + S(7): FOR Z = 

X: PRINT " : NEXT : NORMAL 


14 TO 19:T(Z) = 0: NEXT : IF T(12) < = 0 THEN RETURN 

192 HTAB 1: VTAB 21: CALL - 958: HTAB 2: VTAB 21: PRINT "( )": 


294 REM DS-LP 

HTAB 3: VTAB 21: GET X$:X = VAL (X$): IF X < 1 OR X > 9 THEN 


296 NN = S(l) # (B7 - B4 - B5):ZZ = B8 + S(l) * S(16): IF NN < = 

192 


0 OR ZZ < = 0 GOTO 306 

194 ON X GOTO 198,218,226,250,250.420,392,570.412 


298 T(14) = ZZ / NN: IF S(l) * {S(16) + T(14) * B5) > = S(17) 

-(C) 


GOTO 306 

196 REM *** NEUEINGABE 


300 NN = S(l) * (B7 - B4):ZZ = B8 + S(17): IF NN < = 0 OR ZZ < = 

198 HOME : HTAB 37: PRINT : HTAB 1: INPUT "TITEL: ";T$:T$ = 


0 THEN T(14) = 0: GOTO 306 

LEFT$ (T$,29): IF T$ = "" THEN T$ = " " 


302 T(14) = ZZ / NN 

200 FOR X = 1 TO LEN {T$):y = ASC { MID$ (T$,X,1)): IF Y < 32 OR 


304 REM MLP-I 

Y > 93 THEN PRINT "NUR GROSSBUCHSTABEN GET X$: GOTO 198 


306 NN = S(l) * (BB - B4 - B5):ZZ = B8 + S(1) * S(16): IF NN < = 

202 NEXT 


0 OR ZZ < = 0 GOTO 316 

204 HOME : PRINT T$: PRINT Rl$ 


308 T(16) = ZZ / NN: IF S(l) * (3(16) + T(16) # B5} > = S(17) 

206 FOR Z = 0 TO S: PRINT S$(Z): NEXT 


GOTO 316 

208 FOR Z = 0 TO S: VTAB Z + 3: HTAB 30: INPUT "";X$:S(Z) = VAL 


310 NN = S(l) * (BB - B4):ZZ = B8 + S(17): IF NN < = 0 OR ZZ < = 

(X$): IF S(Z) > K6 OR S(Z) < 0 THEN S{Z) = 0 


0 THEN T(16) = 0: GOTO 316 

210 VTAB Z + 3: HTAB 30;X = S(Z): GOSUB 138: PRINT MID$ (E$, LEN 


312 T(16) = ZZ / NN 

(X$) + 1,10)X$: NEXT 


314 REM *** MLP-II 

212 HTAB 1: VTAB 23: PRINT R$;: GET X$: IF X$ < > "1" THEN 212 


316 NN = S(l) * (B2 * B3 - B4 - B5):ZZ = B8 + S(l) * S(16); IF NN 

214 GOTO 168 


< = 0 OR ZZ < = 0 GOTO 326 

-(d) 


318 T(17) = ZZ / NN: IF S(l) * (S(16) + T(17) * B5) > = S(17) 

216 REM EINGABEKONTROLLE 


GOTO 326 

218 HOME : PRINT T$: PRINT Rl$ 


320 NN = S(l) * (B2 * B3 - B4):ZZ = B8 + S(17): IF NN < = 0 OR ZZ 

220 FOR Z = 0 TO S: PRINT S$(Z);:X = S(Z): GOSUB 138: PRINT MID$ 


< = 0 THEN T(17) = 0: GOTO 326 

(E$, LEN (X$) + 1,10)X$: NEXT 


322 T(17) = ZZ / NN 



324 REM *** DS-VA 

222 PRINT R$;: GET X$: GOTO 168 


326 NN = S(0) * (B7 - B5) - BC - S(16);ZZ = B9: IF NN < = 0 OR ZZ 

---(e) 


< = 0 GOTO 336 

224 REM *** EINGABEKORREKTUR 


328 T(15) = ZZ / NN: IF T(15) * (S(16) + S(0) * B5) > = S(17) 

226 HOME : PRINT T$: PRINT Rl$: FOR Z = 0 TO S: PRINT S$(Z);:X = 


GOTO 336 

S(Z): GOSUB 138: PRINT MID$ (E$, LEN (X$) + 1,10)X$: NEXT 


330 NN = S(0) * B7 - BC:ZZ = B9 + S(17): IF NN < = 0 OR ZZ < = 0 

228 VTAB 23: HTAB 1: PRINT R0$:: VTAB 23: HTAB 1: PRINT "WELCHE 


THEN T(15) = 0: GOTO 336 

ZEILE (0 - "S"): INPUT "";X$ 


332 T(15) = ZZ / NN 

230 Z = INT { VAL (X$)): IF X$ = "0" OR X$ = "00" THEN 234 


334 REM DA-I 

232 IF Z > S OR Z < 1 THEN 228 


336 IF S(l) = 0 GOTO 348 

234 IF F = 1 THEN VTAB Z + 3: HTAB 4: INVERSE : PRINT "=>": 


338 NN = BA - S{0) * B5 - S(16):ZZ = Bl + T(3) + T(9): IF NN < = 

NORMAL : VTAB 23: HTAB 1: PRINT R0$;: VTAB 23: HTAB 1: PRINT 


0 OR ZZ < = 0 GOTO 358 

R$;: GET X$: GOTO 576 


340 T(18) = ZZ / NN: IF T(18) * (S(16) + S{0) * B5) > = S(17) 

236 VTAB Z + 3: HTAB 1: PRINT R0$;: VTAB Z + 3: HTAB 1: PRINT 


GOTO 358 

S$(Z);: INPUT "";X$:X = VAL (X$): IF X = 0 AND X$ < > "0" 


342 NN = BA:ZZ = Bl + T(3) + T(9) + S(17): IF NN < = 0 OR ZZ < = 

THEN 240 


0 THEN T(18) = 0: GOTO 358 

238 S(Z) = X: IF S(Z) > K6 OR S{Z) < 0 OR X$ = "0" THEN S(Z) = 0 


344 T(18) = ZZ / NN: GOTO 358 

240 VTAB Z + 3: HTAB 1: PRINT R0$;: VTAB Z + 3; HTAB 1: PRINT 


346 REM DA-I = VA 

S$(Z);:X = S(Z}: GOSUB 138: PRINT MID$ (E$, LEN (X$) + 


348 NN = S(0) (BB - B5) - BC - S(16):ZZ = B9: IF NN < = 0 OR ZZ 

1,10)X$: 


< = 0 GOTO 358 

242 VTAB 23: HTAB 1: PRINT "1 = ZURUECK * 9 = ERNEUTE AENDERUNG 


350 T(18) = ZZ / NN; IF T(18) * (S(16) + S(0) * B5} > = S(17) 

: GET X$; IF X$ = "1" GOTO 168 


GOTO 358 

244 IF X$ < > "9" THEN 242 


352 NN = S(0) * BB - BC:ZZ = B9 + S(17); IF NN < = 0 OR ZZ < = 0 

246 GOTO 228 


THEN T(18) = 0: GOTO 358 

-(f) 


354 T(18) = ZZ / NN 

248 REM *** BILDSCHIRM- UND DRUCKERBERECHNUNG 


356 REM *** DA-II 

250 HOME 


358 IF S(l) = 0 GOTO 370 

252 REM *** X VON ON X GOTO 


360 NN = BA - S(0) * B5 - S(16):ZZ = Bl + T(3): IF NN < = 0 OR ZZ 

254 IF X < > 5 THEN F = 0: GOTO 268 


< = 0 GOTO 378 

256 F = 1: PRINT CHR$ (7): HOME : INVERSE : PRINT R3$: NORMAL ; 


362 T(19) = ZZ / NN: IF T(19) ¥ (S(16) + S(0) * B5) > = S(17) 

VTAB 3: PRINT R$: VTAB 5: PRINT "3 = AUSDRUCK": VTAB 7: GET 


GOTO 378 

X$: IF X$ < > "3" GOTO 168 


364 NN = BA:ZZ = Bl + T(3) + S(17): IF NN < = 0 OR ZZ < = 0 THEN 

258 HOME : PRINT : PRINT CHR$ (4)"PR#1": PRINT 


T(19) = 0: GOTO 378 

260 PRINT T$; PRINT Rl$: FOR Z=0TOS: IFS(Z)=0 THEN NEXT : 


366 T(19) = ZZ / NN: GOTO 378 

GOTO 264 


368 REM *** DA-II = VA 

262 PRINT S$(Z);:X = S(Z): GOSUB 138: PRINT MID$ (E$, LEN (X$) + 


370 NN = BA - S(7) - S(0) * B5 - S(16):ZZ = B9: IF NN < = 0 OR ZZ 

1,10)X$: NEXT 


< = 0 GOTO 378 

264 FOR Z = 1 TO 5: PRINT A$(Z);:X = A(Z): GOSUB 138: PRINT MID$ 


372 T(19) = ZZ / NN; IF T(19) * (S(16) + S(0) * B5) > = S(17) 

(E$, LEN (X$) + 1,10)X$: NEXT : PRINT : HOME 


GOTO 378 

-(g) 


374 NN = BA - S(7):ZZ = B9 + S(17): IF NN < = 0 OR ZZ < = 0 THEN 

266 REM *** DB-BERECHNUNG 


T(19) = 0: GOTO 378 

268 GOSUB 270: GOSUB 290: GOTO 382 


376 T(19) = ZZ / NN 

270 Al = A{1) + K2:B = S(0) * S{1) 


378 RETURN 

272 T(0) = B * (K2 - S(3)) / A1:T(1) = T(0) # A(2) / K2 + S{1) * 


380 REM *** AUSGABEDATEN 

S(4):T{2) = T(0) * A(3) / K2 + S(5):T(3) = S(6) + (S(l) + 


382 PRINT T$: PRINT Rl$; FOR Z = 0 TO T: IF T(Z) = 0 THEN NEXT : 

S(2)) * S(7) 


GOTO 386 

274 T(13) = B * S{13) / K2 + B * S(14) / Al + T(0) * S(15) / K2 + 


384 PRINT T$(Z);:X = T(Z): GOSUB 138: PRINT MID$ (E$, LEN (X$) - 

S(l) * S{16):T(4) = T(13); IF S(17) > T(13) THEN T(4) = S(17) 


3,10)X$: NEXT 

276 T(4) = T(4) + B * S(8) / K2 + B * S(9) / Al + T(0) * S(10) / 


386 IF F = 1 THEN F = 0: PRINT CHR$ (12): PRINT CHR$ (4)"PR=I0" 

K2 + S{1) * S(ll) + S(12) 


388 PRINT R$;: GET X$: GOTO 168 

278 REM *** E = EINZELKOSTEN 


-(h) 

280 T(5) = S(18):T(6) = S(19):E = T(l) + T(2) + T(3) + T(4) + 



T(5} - T{6):T(7) = T(0) - E:T(9) = T{0) * A(4) / K2:T(10) = 


390 REM *** KONSTANTENLISTE 

T(7) - T(9) 


392 HOME : INVERSE : PRINT " KONSTANTENLISTE 

282 T(8) = 0:T(11) = 0: IF T(0) > 0 THEN T{8) = T(7) * K2 / 


": NORMAL : PRINT : PRINT 

T(0):T(11) = T(10) * K2 / T(0) 


394 FOR Z = 1 TO 5: HTAB 1: VTAB Z + 3: PRINT A$(Z);:X = A(Z): 

284 T(12) = S(5) + S(12) + S(17) + S(18) - S(19) + T(3) 


GOSUB 138: PRINT MID$ (E$, LEN (X$) + 1,10)X$ 

286 RETURN 


396 HTAB 30: VTAB Z + 3: INPUT "";X$:X = VAL (X$): IF X > 0 AND X 

288 REM TERME 


< K6 OR X$ = "0" THEN A(Z) = X 

290 Bl = S(5) + S(12) + S(18) - S(19);B2 = (K2 - S(3)) / Al / 


398 X = A(Z); HTAB 30: VTAB Z + 3: GOSUB 138: PRINT MID$ (E$, LEN 

K2:B3 = K2 - A(2) - A(3) - S(10):B4 = S(8) / K2 + S(9) / 


(X$) + 1,10)X$: NEXT Z 

A1:B5 = S(13) / K2 + S(14) / Al + B2 * S(15):B6 = S(ll) + 


400 PRINT : PRINT "SPEICHERN J/N "; 

S(4) 


402 GET X$: IF X$ < > "J" AND X$ < > "N" THEN 402 

292 B7 = B2 * (B3 - A(4} - A(5)):B8 = Bl + T(3) + S(l) * B6:B9 = 


404 IF X$ = "J" THEN PRINT : PRINT CHR$ (4)"OPEN EINZEL.KONST": 
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PRINT CHR$ (4)"WRITE EINZEL.KONST" 

406 IF X$ = "J" THEN FOR Z = 1 TO 5: PRINT A(Z): NEXT ; PRINT 
CHR$ {4)"CLOSE" 

408 GOTO 168 
410 REM *** ENDE 

412 HTAB 1; VTAB 23: INPUT "WIRKLICH ENDE JA/N ";X$ 

414 IF X$ < > "JA" THEN 192 
416 HOME : PRINT "ENDE...": END 

418 REM *** GRAFIK 

420 HOME : GOSUB 270: GOSUB 290 

422 VTAB 1: HTAB 16: INVERSE : PRINT "GRAFIKEN"; VTAB 3: PRINT " 
FUER AUFLAGE-LADENPREIS-ALTERNATIVEN ": NORMAL 
424 PRINT ; FOR Z = 14 TO 15: PRINT T${Z);:X = T(Z): GOSUB 138: 

PRINT MID$ (E$, LEN (X$) - 3,10)X$: NEXT 
426 PRINT ; IF T(14) = 0 AND T{15) = 0 THEN PRINT R7$: PRINT : 
PRINT R$;: GET X$: GOTO 168 

428 IF T(14) = 0 THEN PRINT "LADENPREIS-GRAFIK NICHT MOEGLICH" 

430 IF T(15) =0 THEN PRINT "VERKAUFSAUFLAGEN-GRAFIK NICHT 
MOEGLICH" 

432 PRINT : PRINT R$: PRINT : PRINT "3 = LADENPREIS-GRAFIK": 

PRINT : PRINT "5 = VERKAUFSAUFLAGEN-GRAFIK": PRINT 
434 GET X$: IF X$ = "1" THEN 168 

436 REM *** F = 0 = DS-LP * F = 1 = DS-VA 

438 IF X$ = "3" AND T(14) < > 0 THEN F = 0: GOTO 444 

440 IF X$ = "5" AND T{15) < > 0 THEN F = 1: GOTO 444 

442 GOTO 434 

444 UU = S(F):U = T(14 + F):S(F) = U: GOSUB 270:UM = T(0): 

REM *** UM=UMSATZ-OBERGRENZE FÜR Y-ACHSE * U=DS-LP/DS-VA 
446 PRINT : PRINT "G = GESAMTKOSTENKURVE": PRINT : PRINT "S = 
STUECKKOSTENKURVE": PRINT 
448 GET X$: IF X$ < > "G" AND X$ < > "S" THEN 448 
450 V = 0: IF X$ = "S" THEN V = 1:UM = S(0) 

452 HOME : HGR2 : POKE 232,0: POKE 233,96: HCOLOR= 7: SCALE= 1: 
ROT= 0 

454 REM *** ROHGRAFIK 

456 HPLOT 46,9 TO 46,158: HPLOT 46,158 TO 270,158: 

REM *** KOORDINATENKREUZ 

458 FOR Y = 14 TO 142 STEP 16: HPLOT 43,Y TO 49,Y: NEXT : 

REM Y-UNTERTEILUNG 

460 FOR Y = 88 TO 256 STEP 42: HPLOT Y,155 TO Y,161; NEXT : 

REM *** X-UNTERTEILUNG 

462 X$ = "0":SL = 1:SH = 6:SV = 21:BH = 5:BV = 1: GOSUB 516:BH = 
6: GOSUB 516: REM *** ORIGO 

464 X$ = "Y":SL = 1:SH = 7:SV = 1;BH = 1:BV = 0: GOSUB 516:BH = 

2: GOSUB 516:BH = 0: GOSUB 516: REM *** Y-MARKIERUNG 
466 X$ = "UM+KO": IF V = 1 THEN X$ = "LP+KO" 

468 SL = 5:SH = I:SV = 1:BV = 0:BH = 0: GOSUB 516:BH = 1: GOSUB 
516: REM *** Y-WERTE 

470 X$ = "X":SL = 1:SH = 40:SV = 20:BH = 0:BV = 3; GOSUB 516:BH = 
1: GOSUB 516:SH = 39:SV = 20:BH = 6: GOSUB 516: 

REM X-MARKIERUNG 

472 IF F = 1 THEN X$ = "VERKAUFSAUFLAGEN":SL = LEN (X$):SV = 

24:SH = 15:BV = 0:BH = 0: GOSUB 516:BH = 1: GOSUB 516: GOTO 
476 

474 X$ = "LADENPREISE":SL = LEN (X$):SV = 24:SH = 19:BV = 0:BH = 
0: GOSUB 516:BH = 1: GOSUB 516 
476 X$ = " " + T$:SL = LEN (X$);SV = 1:SH = 9:BV = 0:BH = 0: 

GOSUB 516:BH = 1: GOSUB 516: REM *** TITEL 
478 X$ = "U":SL = 1:SH = 1:SV = 23:BH = 4:BV = 4: GOSUB 516:BH = 
5; GOSUB 516:X$ = "S":SL = 1:SH = 2:SV = 24:BH = 0:BV = 0: 
GOSUB 516:BH = 1: GOSUB 516:BH = 2: GOSUB 516 
480 REM *** 5 X-ACHSEN-ZAHLEN (LP/VA) 

482 SV = 22:SH = 10:BV = 0:Y = U / 5: FOR Z = 1 TO 5:X = Z * Y: 

IF F = 0 THEN GOSUB 138: GOTO 488 
484 X$ = STR$ ( INT (X)):SL = LEN (X$}: IF SL > 5 THEN X$ = LEFT$ 
(X$,SL - 3) + "T" 

486 GOTO 492 

488 SL = LEN (X$): IF SL = 6 THEN X$ = LEFT$ (X$,SL - 1) 

490 SL = LEN (X$): IF SL > 6 THEN X$ = LEFT$ (X$>SL - 3) 

492 SL = LEN (X$): IF SL < 6 THEN X$ = " " + X$: GOTO 492 

494 BH = 0: GOSUB 516:BH = 1: GOSUB 516:SH = SH + 6: NEXT Z 

496 REM *** 9 Y-ACHSEN-ZAHLEN (UM=UMSATZ; BEI V=1 LP) 

498 SV = 18:SH = 1;BV = 3:Y = UM / 9: FOR Z=1T09:X=Z*Y; 

IF V = 0 THEN X$ = STR$ { INT (X)): GOTO 506 
500 GOSUB 138:SL = LEN (X$): IF SL = 7 THEN X$ = LEFT$ {X$,SL - 
1) 

502 SL = LEN (X$): IF SL > 6 THEN X$ = LEFT$ (X$,SL - 3) 

504 GOTO 508 

506 SL = LEN (X$): IF SL > 6 THEN X$ = LEFT$ (X$,SL - 3) + "T" 

508 SL = LEN (X$): IF SL < 6 THEN X$ = " " + X$: GOTO 508 

510 BH = 0: GOSUB 516:BH = 1; GOSUB 516:SV = SV - 2: NEXT Z 
512 GOTO 528 

514 REM *** ZEICHENROUTINE 

516 FOR X = 1 TO SL 

518 SD = ASC ( MID$ (X$,X,1)) - 31: IF SD = 17 THEN SD = 48; REM 
*** 0 STATT 0 

520 IF SD = 15 THEN SD = 13: REM , STATT . 

522 DRAW SD AT (X + SH - 2) * 7 + BH,6 + (SV - 1) * 8 + BV 
524 NEXT : RETURN 


526 REM UMSATZ- UND KOSTENKURVEN 

In der nächsten Zeile "U / 210" durch "U / 105" 
ersetzen, wenn doppelt so schnell geplottet werden soll! 

528 Y = U / 210:SD = 1: REM *** LOT-FLAG 
530 VI = 210 / U:V2 = - 144 / UM: 

REM *** 256-46=210=X-PUNKTE * 14-158^144=Y-PUNKTE 
532 FOR Z = ,1 TO U STEP Y:S(F) = Z: GOSUB 270 
534 IF V = 1 THEN T(0} = T(0) / S(1):E = E / S(l) 

536 XI = VI * Z + 46:Y1 = V2 * T(0) + 158:Y2 = V2 * E + 158 

538 IF XI < 46 OR XI > 256 THEN 546 

540 IF Y1 > 13 AND Y1 < 159 THEN HPLOT XI, Yl: REM UMSATZ-PLOT 

542 IF Y2 > 13 AND Y2 < 159 THEN HPLOT XI,Y2: REM *** KOSTEN-PLOT 

544 IF SD = 1 AND Yl < Y2 AND Yl > 13 AND Yl < 159 THEN SD = 0: 

HPLOT XI,Yl TO XI,159: REM *** BREAK-EVEN-LOT 
546 NEXT 

548 IF XI < 46 OR XI > 256 OR Yl < 14 OR Y2 < 14 OR Yl > 158 OR 
Y2 > 158 THEN 552 
550 HPLOT XI,Yl TO XI,Y2 

552 S(F) = UU:F = 0:V = 0:SD = 0: REM FLAGS ZURÜCKSETZEN 
554 GET X$ 

556 TEXT : HOME : PRINT R$: PRINT : PRINT "3 = ERNEUT ANSEHEN": 

PRINT : PRINT "5 = SPEICHERN": PRINT 
558 GET X$: IF X$ < > "1" AND X$ < > "3" AND X$ < > "5" THEN 558 
560 IF X$ = "1" THEN 420 

562 IF X$ = "3" THEN POKE - 16304,0: POKE - 16297,0: POKE - 
16299,0: GOTO 554 

564 HOME ; PRINT ; PRINT CHR$ (4)"CATALOG": INPUT "DATEINAME: 

";X$: PRINT "VERTIPPT J/N ";: GET Ul$: IF Ul$ < > "N" THEN 
556 

566 PRINT : PRINT CHR$ (4) "BSAVE"X$", A$400(2f. L$lFF(2f‘‘: GOTO 168 

-(j) 

568 REM *** ALTERNATIVKALKULATION 

570 HOME : INVERSE : HTAB 9: PRINT "ALTERNATIVKALKULATION": 

NORMAL 

572 VTAB 4: PRINT R$: VTAB 6: PRINT "2 = MARKIERUNG": VTAB 8: GET 
X$: IF X$ < > "2" GOTO 168 

574 Ul$ = T$;T$ = "EINGABEZEILE ALS ALTERNATIVE MARKIEREN";F = 1: 
GOTO 226 

576 HOME :V = Z:F = 0:T$ = Ul$: GOSUB 270: IF T(7) = 0 OR T(8) = 

0 THEN PRINT R7$: PRINT : PRINT R$;: GET X$: GOTO 168 
578 PRINT S$(Z);:X = S(Z): GOSUB 138: PRINT MID$ (E$, LEN {X$) + 

1.10) X$ 

580 VTAB 3: HTAB 1: PRINT "VERTIPPT J/N ";: GET X$: IF X$ = "J" 
GOTO 574 

582 VTAB 5: HTAB 1: CALL - 958 

584 INPUT "UNTERGRENZE: ";X$:V1 = VAL (X$) 

586 VTAB 7: HTAB 1: INPUT "OBERGRENZE: ";X$:V2 = VAL (X$) 

588 IF VI < = 0 OR V2 < = 0 OR VI > = V2 OR VI > K6 OR V2 > K6 
GOTO 582 

590 VTAB 9: HTAB 1: PRINT "VERTIPPT J/N ";: GET X$: IF X$ = "J" 
GOTO 582 

592 HOME : PRINT CHR$ (7): HTAB 1: VTAB 1: INVERSE : PRINT R3$: 
NORMAL : VTAB 3: PRINT "1 BILDSCHIRMBERECHUNG": VTAB 5: PRINT 
"5 DRUCKERBERECHNUNG" 

594 VTAB 7: GET X$: IF X$ < > "1" AND X$ < > "5" THEN 594 
596 F = 0: IF X$ = "1" THEN F = 1: HOME : PRINT T$: PRINT R1$:Y = 
7: GOTO 606 

598 PRINT : PRINT CHR$ (4)"PR+1": PRINT 
600 PRINT T$: PRINT 

602 REM *** Y = ANZAHL DER BERECHNUNGEN 
604 Y = 25 

606 Y = (V2 - VI) / (Y - 1) - .0005:U = S(V): IF F = 1 THEN Ul$ = 
S$(V):U2$ = T$(7):U3$ = T$(8): GOTO 612 
608 U = S(V):U1$ = RIGHT$ (S$(V),23) 

610 U2$ = RIGHT$ (T$(7),19):U3$ = RIGHT$ (T$(8),19) 

612 FOR Z = VI TO V2 STEP Y 
614 S(V) = Z: GOSUB 270 

616 PRINT U1$;:X = Z: GOSUB 138: PRINT MID$ (E$, LEN (X$) + 

1.10) X$;: IF F = 1 THEN PRINT : GOTO 620 

618 PRINT " "; 

620 PRINT U2$;:X = T(7): GOSUB 138: PRINT MID$ (E$, LEN (X$) - 

3.10) X$: IF F = 1 THEN 624 
622 PRINT R0$" "; 

624 PRINT U3$;:X = T(8): GOSUB 138: PRINT MID$ (E$, LEN {X$) - 

3.10) X$ 

626 NEXT :S(V)=U: IFF=1 THEN VTAB 24; HTAB 1; PRINT R$;: GET 
X$: GOTO 630 

628 PRINT CHR$ (12): PRINT : PRINT CHR$ (4)"PR#0" 

630 F = 0: GOTO 168 

-(k) 

632 FOR X = 24576 TO 25575: READ Y: POKE X,Y: NEXT : RETURN: 

REM *** HIRES-SHAPES FUER GROSSBUCHSTABEN UND SONDERZEICHEN 
634 DATA 63,0,128,0,133,0,143,0,156,0 
636 DATA 175,0,192,0,208,0,224,0,235,0 
638 DATA 248,0,5,1,23,1,35,1,41,1 
640 DATA 50,1,55,1,65,1,84,1,96,1 
642 DATA 111,1,128,1,142,1,158,1,176,1 
644 DATA 190,1,208,1,222,1,228,1,236,1 
646 DATA 249,1,4,2,17,2,30,2,47,2 
648 DATA 63,2,79,2,95,2,109,2,123,2 
650 DATA 136,2,153,2,166,2,178,2,189,2 
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652 

DATA 

204,2,214,2,228,2,243,2,1,3 

654 

DATA 

15,3,32,3,48,3,65,3,77,3 

656 

DATA 

91,3,105,3,120,3,136,3,147,3 

658 

DATA 

162,3,179,3,197,3,214,3,9,9 

660 

DATA 

9,1,0,73,4,32,36,52,18,18 

662 

DATA 

10,73,0,72,8,24,32,52,10,33 

664 

DATA 

52,18,18,10,9,0,9,36,36,36 

666 

DATA 

214,45,45.39,52,54,54,38,12,63 

668 

DATA 

63,149,73,9,0,8,45,45,32,59 

670 

DATA 

63.32,41,45,31,48,54,54,38,74 

672 

DATA 

9,0,8,12,12,12,12,220,59,46 

674 

DATA 

148,146,9,53,39,74,1,0,8,100 

676 

DATA 

12,36,59,50,14,10,14,12,22,31 

678 

DATA 

47,9,9.0,72,8,8,24,36,22 

680 

DATA 

18,18,9,9,0,73,28,28,36,12 

682 

DATA 

12,20,18,18,18,9,9,0,73,12 

684 

DATA 

12,36,28,28,20,18,18,18,9,9 

686 

DATA 

0,8,12,4,224,76,54,54,54,12 

688 

DATA 

33,35,32,33,18,18,18,9,0,73 

690 

DATA 

32,36,52,26,43,45,61,18,10,9 

692 

DATA 

0,9,12,52,74,9,0,72,24,40 

694 

DATA 

45,61,18,10,9,0,73,20,9,9 

696 

DATA 

0,8,12,12,12,12,148,18,18,9 

698 

DATA 

0,8,36,36,12,45,21,54,54,30 

700 

DATA 

63,71,32,33,33,18,18,10,9,0 

702 

DATA 

9,45,39,36,36,244,21,18,18,9 

704 

DATA 

9,0,33,12,12,101,36,59,63,50 

706 

DATA 

18,18,45,45,15,9,0,9,45,5 

708 

DATA 

32,28,47,32,33,63,63,157,146,50 

710 

DATA 

9,9,9,0,73,33,36,36,52,51 

712 

DATA 

51,51,45,45,23,10,9,0,8,14 

714 

DATA 

45,5,32,36,59,63,36,45,45,151 

716 

DATA 

146,10,9,0,8,36,45,173,54,59 

718 

DATA 

63,32,36,12,12,45,23,18,18,10 

720 

DATA 

9,0,9,36,12,12,12,60,63,47 

722 

DATA 

146,18,10,9,9,0,8,36,32,12 

724 

DATA 

45,21,54,50,30,63,7,32,12,45 

726 

DATA 

21,18,9,0,41,45,32,33,36,28 

728 

DATA 

63,23,54,41,45,18,74,0,64,64 

730 

DATA 

177,86,73,0,9,12,196,8,22,86 

732 

DATA 

73,0,9,9,28,28,28,12,12,12 

734 

DATA 

148.146,82,9,0,64,45,45,199,216 

736 

DATA 

45,45,151,82,9,0,9,12,12,12 

738 

DATA 

28,28,28,148,146,82.73,1,0,73 

740 

DATA 

4,32,12,12,28,219,98,45,149,146 

742 

DATA 

74,0,73.9,63,63,32,36,100,45 

744 

DATA 

21,54,55,39,44,146,74,1,0,33 

746 

DATA 

36,52,8,48,64,14,14,54,54,196 

748 

DATA 

219,45,173,74,0,41,45,223,36,44 

750 

DATA 

45,223,36,44,45,79,50,22,54,9 

752 

DATA 

0,9,7,48,32,36,36,121,45,21 

754 

DATA 

148,146,30,27,45,77,0.73,57,63 

756 

DATA 

36,36,36,45,125,17,54,54,148,9 

758 

DATA 

0,33,36,36,44,45,189,18,63,151 

760 

DATA 

42,45,125,9,0,33,36,36,44,45 

762 

DATA 

189,18,63,151,74,73,1,0,8,6 

764 

DATA 

32,36,100.15,45,189,146,15,53,62 

766 

DATA 

63,79,73,1,0,33,36,36.180,42 

768 

DATA 

45,37,36,150,54,38,74,0,9,37 

770 

DATA 

36,36,60,13,151,146,10,79,9,0 

772 

DATA 

8,14,45,79,32,36,36,150.18,78 

774 

DATA 

0,33,36,36,116,72,49,51,51,51 

776 

DATA 

161,10,148,161,9,0,33,36,36,180 

778 

DATA 

146,42,45,61,73,0,33,36,36,116 

780 

DATA 

14,102,48,64,54,54,54,84,1,0 

782 

DATA 

33,36,36,180,161,10,148,97,36,52 

784 

DATA 

18,54,166,9,0,8,36,36,12,45 

786 

DATA 

21,54,54,30,63,79,73,1,0,33 

788 

DATA 

36,36,44,45,79,162.246,63,151,74 

790 

DATA 

73,1,0,8.36,36,12,45,21,54 

792 

DATA 

166,18,28,28,148,58,79,73,1.0 

794 

DATA 

33,36,36,44,45,79,162,246,63,79 

796 

DATA 

162,10,148,161,9,0,8,14,45,5 

798 

DATA 

32,28,63,7,48,32,12,45,21,148 

800 

DATA 

146,78,0,73,36,36,36,63,13,45 

802 

DATA 

151,146,74,1,0,8,6,32,36,36 

804 

DATA 

70,73,54,54,246,63,77,9,0,64 

806 

DATA 

36,36,150,82,148,97,12,36,36,150 

808 

DATA 

146,9,0,33,36,36,180,146,97,180 

810 

DATA 

97,36,36,150,50,166.9,0,8,102 

812 

DATA 

48,64,12,68,230,219,166,10.148,113 

814 

DATA 

14,166,9,0,73,36,36,227,180,73 

816 

DATA 

12,180,146,74,0,8,12,12,12,12 

818 

DATA 

60,63,239,146,18,46,45,125,9,0 

820 

DATA 

33,36,164,82,84,84,84,18,36,36 

822 

DATA 

4,240,28,30,28,6,0,1,32,36 

824 

DATA 

4,112,140,140,12,150,18,36,164.146 

826 

DATA 

26,212,212,4,0,1,32,36,100,14 

828 

DATA 

8,142,146,36,36,148,146,26.212,212 

830 

DATA 

4,0,73,36,36,36,30,84,161,10 

832 

DATA 

212,219,4,0,0,0,0,0,0,0 


EINZEL.GROSS 

(Neben EINZEL.KLEIN als Textfile auf 
Sammeldisk) 

—---—---( 1 ) 


Al 


MEHRWERTSTEUERSATZ. ... 

A2 


VERTRIEBSKOSTENSATZ/NP. 

A3 


WERBEKOSTENSATZ/NP. 

A4 


GEMEINKOSTENSATZ/NP.... 

A5 


GEWINNSATZ/NP,.. .. 

00 


LADENPREIS___ 

01 


VERKAUFSAUFLAGE. 

02 


FREIEXEMPLARE.. 

03 


RABATTSATZ... 

04 


VERTRIEBSSTUECKKOSTEN.. 

05 


FESTER WERBEETAT.. . 

06 


FIXE HERSTELLKOSTEN..,. 

07 


VAR.HERSTELLSTUECKKOST. 

08 


HONORARSATZ/LP. 

09 


HONORARSATZ/NLP.. 

10 


HONORARSATZ/NP______ 

11 


HONORARSTUECKKOSTEN.... 

12 


HONORARPAUSCHALE,___ 

13 


HONORARSATZ/LP {ANR.).. 

14 


HONORARSATZ/NLP {ANR.). 

15 


HONORARSATZ/NP (ANR.).. 

16 


HONORARSTUECKKO. (ANR.) 

17 


HONORARGARANTIE (ANR.). 

18 


SONSTIGE KOSTEN... 

19 


SONSTIGE ERLOESE....... 

00 


UMSATZ. 

01 

- 

VERTRIEBSKOSTEN,... 

02 

- 

WERBEKOSTEN 

03 

- 

HERSTELLUNGSKOSTEN. 

04 

- 

HONORARKOSTEN_ 

05 

- 

SONSTIGE KOSTEN.,,, 

06 

+ 

SONSTIGE ERLOESE... 

07 

= 

DECKUNGSBEITRAG_ 

08 


* DECKUNGSSPANNE. 

09 

- 

GEMEINKOSTEN. ___ 

10 

= 

GEWINN. 

11 


* GEWINNSPANNE.%... 

12 


INVESTITIONSKOSTEN. 

13 


ABSATZHON. (ANR.).. 

14 


DS-LADENPREIS.. 

15 


DS-VERKAUFSAUFLAGE. 

16 


MINDEST~LP I, . . . , , 

17 


MINDEST-LP II.,_ 

18 


DECKUNGSAUFLAGE I. 

19 


DECKUNGSAUFLAGE II, 


EINZEL.KONST 

(als Textfile auf Sammeldisk) 


10 

10 

20 

5 

5 


Kyan-Pascal 2.02 

Handbuch und Diskette 
Club-Preis DM 170- 

Achtung: Ab 1.6.86 nicht mehr mit Kix- 
System! 
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Funktionenprogramm für Apple 11+ 

von Stefan Hubertus Weil 


l.l. BErechnung der Funktionswerte für beliebige Funktionen 



Das Hauptproblem stellt zunächst die Eingabe beliebiger Funktionen und die 
Berechnung der zugehörigen Funktionswerte dar. Hier bieten sich aut den ersten 
Blick zwei grundverschiedene Möglichkeiten an: 


1. Eingabe der kompletten Zeile für die Funktionswertberechnung 
über ein Texttile 

2. Direkte Manipulation der betre-ftenden Programmzeile durch 
POKE - Anweisungen 


Ich habe mich für die zweite Methode einschieden, da sie mir eleganter erschien. 


Für die Funktionswertberechnung habe 
eine einfache Möglichkeit darstellt, 
ProgramiDzei 1 e zu berechnen. Dies ist 
Funktion sehr vorteilhaft. 


ich die DEF FN - Funktion gewählt, da sie 
Funktionswerte ohne Sprung in eine andere 
vor Allem beim Zeichnen der Ableitungs* 


1,2- AbtKbmruiig rär nicht dtfini^rli StiIJmn dfr Funktiqrimn 


Die Absicherung für nicht definierte Stellen der Funktionen ist nicht sehr 
schwierig. Am einfachsten läßt sich dieses Problem mit der ONERft GOTO 
Funktion lösen. Bei Auftreten eines Fehlers (z.B. ILLEGAL QUANTITY ERROR) wird 
einfach der nächste Funktionswert berechnet. 


GL Zeiger auf nächste Position im Feld GL 

Z FÜR NEXT bei Codierung , Variable für Einheitsberechnung 

FZ Flag für erkannte Funktion / Zeichen 

FF Flag für eingegebene Funktionsgleichung 

FX Flag für geändertes X Intervall 

FY dto. für Y 

XF Flag für eingegebenes X Intervall 

YF dto. für Y 

Fl Flag für gezeichneten Funktionsgraphen 

FG Flag für Punkte (0) und Linien (1) 

FR Error-Flag beim Zeichnen 

IN inverse-Flag für Druckroutine 

XC,XD eingegebene Begrenzung des X Intervalls 

YC,VD dto. für Y 

XI,X2 altes X Intervall 

VI,Y2 dto. für Y 

X3,X4 X Intervall zum Zeichnen (eventuell eingeschränkt) 

MX Bl 1dschirmkoordinate für X-Achse 

HY dto. für V-Achse 

SX Streckfaktor in X-Richtung (Punkte/Einheit) 

SY dto. für Y 

XE X-Einheit 

YE V-Einheit 

XH X-Bi1dschirmkoordinate des Punktes 

YM dto. für Y 

X5,Xfi X Intervall für Einheitenberechnung 

Y5,Y6 dto.für Y 

XA,XB X Intervall für Hertetabelle 

S Schrittweite für Zeichnen und Hertetabelle 

R = 1/S (zum Runden der X-Herte für Hertetabelle) 


1.2. Lute der Hichtigen ünlBrprugraamr 


1.3, Darstellung der Funktionen in beliebigen Intervallen 


Auf den ersten Blick stellt dies kein sehr großes Problem dar. Um eine Funktion 
zeichnen zu können, müssen vorher folgende Variablen berechnet werden: 


1. Streckfaktor in X - Richtung (Punkte je Einheit) 

2. dto. für V - Richtung 

3. Koordinaten für X - und Y - Achse 


Der Programmteil "Funktionsgraph zeichnen" hat wesentlich mehr Zeit in Anspruch 
genommen als vorgesehen. Dies liegt vor allem an dem Programmteil zum Zeichnen 
des Koordinatensystems, da es hier viele Möglichkeiten für den Ausschnitt aus 
dem Koordinatensystem gibt. 


1.4, Speich er bei eg Uli g durch Programm, Variablen und Graphik 


Zeile 

Unterprogramm 

4010 

viermal Piepston ausgeben 

4020 

Harteschleife 

4030 

Au5druck:"Exit : <RETURN>" 

4200 

Berechnung der X-Einheit 

4520 

dto. für Y 

4910 

Bi 1 dschirmorganisation NORMAL/INVERSE 

4940 

dto. für Punkte/Linien 

4970 

Abfrage; "Drucker bereit" 


2.3. Grober Programmaufbau 


Der Aufbau des Programms ist relativ einfach. Am Anfang des Programms befindet 
sich die DEF FN Zeile für die Funktionswertberechnung. Diese Zeile steht deshalb 
an Anfang, weil eine Programmänderung vor dieser Zeile eine Verschiebung der 
Adressen für die POKE - Anweisungen zur Folge hätte. Dies wäre bei der 
ProgrammEntwicklung sehr hinderlich. Dann folgen einige Vorbereitungen wie z.B. 
das Verschieben von LOHEH und das Laden des HaschinenunterProgramms. 


Liste der Hauptprogrammtei1e: 


Das Problem der Überschneidung von Programm bzw. Variablen und Graphik ergab 
sich erst beim Programmieren. Erste Schwierigkeiten ergaben sich, als die 
Variablen in den HGR 2 Bereich hineinragten. Dies konnte allerdings durch 
Verschieben von LOMEH verhindert werden. Durch weitere Ergänzungen reichen die 
Programmzeilen nun bis knapp unter den HGR 2 Bereich, Eine Programmerweiterung 
ist deshalb mit der normalen Spei eher auftei1ung nicht mehr möglich. 

Das Programm müßte in den Bereich oberhalb von HGR (ab *4000) geladen werden. 


2.1. Variab 1enliste 


a) Feldvariablen 

GL Feld für den codierten Funktionsterm 

At,Bt Felder für Menütexte 


b) Textvariablen 


BF$,WSt 

Kt,A3i häutig vor kommende Texte 
A4J 

D$ CTRL-D für DOS Anweisungen 

Hf für ja/nein Abfragen und Henüauswahl 

Ai allgemeine Verwendung 

Ft Funktionsterm nach der Codierung und Überprüfung 

Yt Eingegebener Funktionsterm 

Ut allgemeine Verwendung 

Nt Filename 

NFt neuer Filename 


c) Gleitkommavariablen 

1 Zähler in FDR - NEXT Schleifen 

P entspricht Pi (3.141592AS) 

E entspricht e (2.7182B13B) 

EP Differenz in X - Richtung zur Berechnung der Ableitung 

EB 2 # EP 

EX minimales X oder V Intervall 

EE minimales eingeschränktes X Intervall 

H Abfragen, Menü 

A allgemeine Verwendung 

LE Länge von Yt 


Zet J en Programmtei1 


220 - 380 
410 - 490 
510 - 560 
560 - 720 
770 - B20 

B30 - B80 
690 - 1040 
1050 - 1190 
1200 - 1230 
1240 - 1470 
HBO - 1530 

1540 - 1580 

1590 - 1660 
1670 - 1750 
1760 - 1010 
1820 - 2150 
2160 - 2300 
2310 - 2330 
2340 - 2450 
2460 - 2470 
2480 - 2630 
2640 - 3010 
3020 - 3120 
3130 - 3290 
3310 - 3300 
3390 - 3500 
3510 - 3570 
3560 - 3710 
3720 - 3770 
3760 - 3950 
3979 “ 3990 
4000 - 4180 
4190 - 4410 
4420 - 4090 


Hauptmenü 

Eingabe der Funktionsgleichung 

entfernen der Leerzeichen aus dem eingegebenen Funktionsterm 
Codierung der Funktionsgleichung 

Einbindung des Funktionsterms in den BASIC - Text und 

Aufruf der DEF FN - Fun):tion 

Test der Funktionsgleichung aut SYNTAX ERROR 

Eingabe des X Intervalls 

dto. für Y 

Fehlerbehandlung für 890 - 1190 
Menü "Funktionsgraph zeichnen" 

Überprüfung, ob X und Y Intervall und Fun ktionsgleichung 
eingegeben wurden 

Überprüfung, ob ggf. in das alte Koordinatensystem gezeichne( 
werden kann 

Eingabe des eingeschränkten Intervalls 
Menü Funktionsgraph bzw. Ableitung zeichnen 
Vorbereitungen zu* Zeichnen 
Koordinatensystem zeichnen 
Y zeichnen 

Aufruf der Maschinenunterprogramme 
Y' zeichnen 

Funktionsgraph anzeigen 
Größen anzeigen 
Her t etabel1e 

Menü "DiskettenOperationen" 

Teil der Diskettenroutinen 
Funktionsgleichung laden 
Funktionsgleichung speichern 
Funktionsgraph laden 
Funktionsgraph speichern 
File 1Dschen 
Fi 1enamen ändern 

DATA Liste für Funktionen, Zeichen und deren Code 
Unterprogramme und Programmteile für Fehlerbehandlung 
Einheitsberechnung 
Druckroutinen 


2.4, Speicherbelegung 


BASIC - Text : tBOl - $3F07 

Graphik : 14000 - $5FFF und $D000 - $EFFF (16 K Karte) 

Variablen : t6000 - ? und ? - *9600 

Maschienenprogramme : *300 - $396 
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2.5. EingabB und Codierung der Funktionsgleichung 


2.6. Verwendung der ONERR GOTO Funktion 


Der eingegebene Funkt1onetere ist unter Vi gespeichert. Zunächst werden alle 
Leerzeichen, die der Funktion st er n enthalten könnte, eniernt (Z. 51t> - 560). 


Die ONERR GOTO Funktion wird zu folgenden Dingen benötigt; 


510 IF RIGHTi (Y$,I) = 

0 

520 IF LEFTi (Y*, I) = " 


■' THEN Y$ = LEFTJ <YS, LEN (Y$) - 1): GOTO 51 
THEN Y5 = RIGHTJ (Yt, LEN (Ytl - I): GOTO 52 


LEN (YJl - 
Hißt (Yt,I,t) < > “ 

LEFTt (Y$,I - 11 + 


" THEN 560 
RIGHTi (Yt, 


530 FOR 
5^0 IF 
550 Yt = 

560 NEXT I 

570 GL = 0:LE = LEN (Yt) 

5B0 FOR I = t TO LE 
590 GL = GL + 1:FZ = 0: RESTORE 
600 ßt = HlDt (Yt,I,3) 

610 FOR Z = 1 TO 11 
620 READ A$,Aj IF At < 

630 GL(GL) = A:FZ = 1:1 
640 NEXT Z 

650 IF FZ = 1 THEN 720 
660 Bt = MIDt (Yt, I, I) 

670 FOR Z = l TO 21 

6ßÖ READ At,Ai IF A$ < > Bt THEN 700 

690 6L(GL) = A:FZ = 1;Z = 21 


LEN (Yt) - I)jl = I - 1 


Bt THEN 640 
+ 2:Z = 11 


700 

710 

720 

730 


740 

750 

760 


VTAB II: PRINT “Die Funktion ist 
Funktionen zu lang!": GOSUB 4020: 


NEXT Z 

IF FZ = 0 THEN RESTORE : GOTO 750 
NEXT I 

IF GL > 90 THEN GDGUB 4010: HOME 
"GL - 90; PRINT : PRINT "Zeichen 
RESTORE : HOME : GOTO 410 
RESTORE : GOTO 780 
HOME : GOSUB 4010: VTAB 10 

PRINT "Verwenden Sie nur die Zeichen und"; PRINT : PRINT "Funktionen 
,die Sie aut der unteren“: PRINT ; PRINT "Hälfte des Bildschirias sehe 
n I": GOSUB 4020: HOME : GOTO 410 


a) Überprüfung der Funktionsgleichung auf Syntaxfeh 1 er 


Nachden der Funktionster* durch POKE Anweisungen in das Programiii eingefügt 
wurde, und die DEF FN Funktion aufgerufen wurde, wird zur Probe FN F(l) 
berechnet. Tritt dabei der Fehler SYNTAX ERROR auf (PEEK(222)=16), dann wird 
eine entsprechende Fehl er»eldüng ausgegeben. Ein Test auf OVERFLON ERROR 
(z.B. Y=1E40) ist nicht nöglich, da dies für alle X geschehen müElte. 


b) Absicherung für nicht definierte Stellen einer Funktion 


Nenn bei einer Funk t i onswer tberechrlung ein Fehler (z.B. ILLEGAL OUANTITY oder 
DIVISION BY ZERO ERROR) auftritt, wird dieser Funktionswert übergangen und der 
nächste Funktionswert berechnet. 


c) Absicherung für Punkte, die außerhalb des Y Intervalls liegen 


Liegt ein Punkt der Funktion außerhalb des Y Intervalls (VM>191 oder YH<0) , so 
tritt beim Plotten der Fehler ILLEGAL QUANTITY ERROR aut. In diesem Fall wird 
wie unter b) einfach der nächste Funktionswert berechnet. Außerde* wird das 
ERROR Flag (FR) auf 1 gesetzt, damit beim nächsten Punkt innerhalb des 
Y Intervalls keine falsche Linie gezogen wird. 


dl Unterbrechung des Zeichnens und der Wertetabelle 


Durch Eingabe von CTRL-C wird ein Fehler mit dem Code 255 erzeugt. Tritt dieser 
Fehler bei* Zeichnen oder bei der Funktionswertberechnung im Programmtei1 
"Wertetabelle" auf, erfolgt ein Sprung zum Hauptmenü. 


e) Erkennung falscher Eingaben im Prograiiinteil "DiskettenOperationen" 


Die Codierung der Funktionsgleichung geht folgendermaßen vor sich: 


Durch Erkennung der Fehlermeldungen anhand der Fehlercodes ist es möglich, eine 
genaue Fehlermeldung für den Anwender auszugeben. Dies kann z.B. die Fehler¬ 
meldung "Es existiert kein File mit dem Namen sein. 


Zunächst wird GL, der Zeiger für den nächsten freien Platz im Feld GL, auf 0 
gesetzt. I zeigt immer auf die augenblich1iche Position in Yi, von wo an der 
nächste Teil der Funktionsgleichung codiert werden soll, ln A$ ist immer die 
Funktion, bzw. das Zeichen gespeichert, das mit dem Teil der Fun ktionsg1eichung 
(B$) verglichen wird. FZ gibt an ,ab nach einem Durchlauf eine Funktion bzw. ein 
Zeichen erkannt wurde (FZ=11, oder nicht (FZ=0). 

Zuerst werden die ersten drei Zeichen des Funktionsterms mit allen Funktionen 
der Data - Liste verglichen. Stimmt Bf mit einer Funktion überein, dann wird der 
zugehörige Code, der in A gespeichert ist, im Feld GL an der Position GL 
abgelegt. Außerdem wird 1 um 2 erhöht, damit nach dem NEXT 1 I wieder auf die 

erste noch nicht codierte Stelle in Yf zeigt. FZ wird auf 1 und Z auf 11 gesetzt. 
Dadurch ist die innere FOR NEXT - Schleife beendet und da FZ=1 ist, erfolgt 
sofort ein Sprung auf das NEXT 1 in Zeile 720. 

Wenn keine Funktion der Data - Liste mit Bf Übereinstimmt, wird Bf mit allen 
Zeichen aus der Data - Liste verglichen. Dies geschieht genau wie bei den 
Funktionen, außer, daß 1 nicht erhöht werden muß. 

Ist nach dem Durchlauf der beiden inneren FOR NEXT - Schleifen keine Funktion 
und kein Zeichen erkannt worden (FZ=0), so wird eine entsprechende Fehlermeldung 
ausgegeben. 

Wurden alle Zeichen und Funktionen des Funktionsterms erkannt und der zugehörige 
Code jeweils im Feld GL abgelegt, dann werden die Werte ab Speicherplatz 2093 in 
den Speicher übertragen. In den verbleibenden Speicherplätzen bis 2183 wird der 
Code 58 für die Doppel punkte, die als Platzhalter dienen, übertragen 
(siehe Zeile 30). 

Das Feld GL wird von 8L (1) bis GL(6L) in den Bereich nach dem Gleichheitszeichen 
in Zeile 30 übertragen. Anschließend wird die Zeile 30 durchlaufen, um die neue 
Funktion mit FN FIX) aufrufen zu können. Dann wird die Funktion noch auf 
einen Syntaxfehler überprüft. 


Auf der nächsten Seite finden Sie einen Speicherauszug, der die Speicherung von 
BASIC Programmen verdeutlicht. 


Speicherauszug (Zeile 30): 


822- 8B 

823- OB 
024- IE 

825- 00 

826- B8 

827- C2 

828- 46 

829- 28 
82A- 58 
82B- 29 
82C- DO 
B2D- DF 
82E- 28 
92F- 58 

830- 29 
031 ‘ 
832“ 3A 


Spr 

dto 

Zei 

dto 

DEF 


ungadresse für nächste Zeile 
. MSB 

1ennummer (LSB) 

. MSB 


(LSB) 


SIN Anfangsadresse für 
( 

X 

) 


Doppelpunkt (Platzhalter) 
dto. 


POKE 


Anweisungen 


886- 3A dto. 

887- 00 Ende der Zeile 


3.1. Menüstruktur 


Menü "Druckroutinen" 

Hauptmenü <-> Menü "Funktionsgraph zeichnen" <-> Menü "Y/Y' zeichnen" 

$ 

Menü "Diskettenoperationen" 

3.2. Einsatzmöglichkeiten des Programms 


Das Programm ermöglicht folgende Funktionen: 

a) Zeichnen einer beliebigen Funktion in einem beliebigen Intervall 

b) Zeichnen der 1. Ableitung der Funktion 

c) Zeichnen mehrerer Funktionen und/oder deren Ableitung in ein Koordinaten¬ 
system 

d) Zeichnen abschnittsweise definierter Funktionen durch Einschränken 
des X Intervalls vor dem Zeichnen 

e) Zwischenspeicherung des Funktionsgraphen in der 16K Karte 

f) Erstellen einer Wertetabelle zu der Funktion 

gl Speicherung des Funktionsgraphen und der Funktionsgleichung auf Diskette 

h) Ausdrucken des Funktionsgraphen und des X/Y Intervalls 

i) Vertauschen des Funktionsgraphen in der 16K Karte mit dem im HGR 2 Bereich 
durch Drücken der Taste 'C' im Modus "Funktionsgraph anzeigen" 


Anmerkung; Es können natürlich nur die Funktionen gezeichnet werden, die sich in 
Applesoft - BASIC formulieren lassen und deren Länge 90 Zeichen bzw. 
Funktionen nicht überschreitet 


3.3. Grenzen des Programms 


Dem Programm sind Grenzen durch die Genauigkeit des Applesoft - BASIC gesetzt. 
Deshalb können Funktionen nicht in beliebig kleinen Intervallen betrachtet 
werden. Ebenso können Funktionen nur im Bereich von -1E30 bis +1E5B betrachtet 
werden. Dies ist für normale Anwendungen jedoch ausreichend, Die Auflösung des 
Monitors ist auf 280 * 192 Punkte beschrankt. Dies hat zur Folge, daß sehr eng 
schwingende Funktionen (z.B. SIN(1/X)) nicht richtig gezeichnet werden können. 

Beim zeichnen kommt es in der Regel zu Abweichungen von einen Punkt, 
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3.4. Behandlung falscher Eingaben 


Das Program* ist gegen folgende falschen Eingaben abgesichert! 


- Eingabe von fehlerhaften Funktionsgleichungen 

- Eingabe eines zu kleinen oder zu großen X oder Y Intervalls 

- Eingabe einer zu großen oder zu kleinen Schrittweite i ii Progr aniitei 1 
“Hertetabel 1 e“ 

- Eingabe falscher Zeichen bei der Menüabfrage 

- Zeichnen des Funktionsgraphen, wenn das X oder Y Intervall oder die Funktions* 
gleichung fehlt 

- Zeichnen des Funktionsgraphen in das alte koordinatensyste«, wenn die Achsen- 
abschnitte geändert wurden 

- Veränderung (Löschen, über schreiben, ...i geschützter Files 

- Laden nicht vorhandener Files 

- Speicherung von Funktionsgraph und Funktionsgleichung aut voller Diskette 

- Eingabe eines zu langen Filenanens 


3.5. Ungeklärte Probleae 


Selegentlich tritt bei« ProgrB««ab1 auf der Fehler OUT ÜF HEMOftV ERROR aut. Der 
Grund dafür könnte z.B. eine nicht abgeschlossene FÜR NEXT Schleife sein, deren 
Rücksprungadresse, Step u.s.w. nicht gelöscht werden. 

Tritt dieser Fehler auf, ist das Progra«« nit CTRL-RESET und GOTO 230 wieder zu 
starten. Die Variablen bleiben dabei erhalten. 


3.6. VerbesserungsMÖglichkeiten 


Aufgrund der vielen Ei ngabekonbi nat i onsMogl i chkei t en ist es fast unaiöglich, das 
Progra«« gegen alle falschen Eingaben abzusichern. Ich habe «ich be«üht, das 
Progra«« an den wichtigsten Stellen gegen Fehler abzusichern. 

Das Progra«« könnte an einigen Stellen noch verbessert werden. Zu« Beispiel 
könnte der IKPUT Befehl bei der Eingabe der Funktionsgleichung durch einen 
Eingabeteil «it 6ET Anweisungen ersetzt werden. AuBerde« könnten die Disketten¬ 
routinen noch benutzerfreundlieher gestaltet werden. Dies gilt vor alle« bei der 
FehlerReldung "Es existiert bereits ein File «it de« Naaen... “. Hier sollte ein 
über schreiben des Files «it eine« Tastendruck «öglich sein. 

Grenzen setzt hier leider der zur Verfügung stehende Speicherplatz. 


Applesoft-Programm FUNKTIONEN 

10 REM <C> BY STEFAN HEIL 
20 GOTO 50 

30 DEF FN F(X) = SIN (XI:::;:::::::::::::::::::!:::::::::::::::::::::: 

40 RETURN 
50 LOHE«: 245B0 
60 HOME 
70 HGR2 
BO TEXT 
90 DIH GL(I50) 

100 P = 3.14159265 
110 E = 2.7182BI83 

120 EP = .0000l!EG = 2 * EP:EE = .000001:EX = .00001 
130 F6 = 1 

HO BFt = "Der Bereich ist zu klein!''!HSS = “Has «ächten Sie ? " 

150 Kt = "Koordinatensyste«" 

160 A3t = ''Funktion5graph'*!A4t = "Funkt i onsgl eichung" 

170 Atdl = A4t + " laden":At(21 = A4t + " spei ehernA$ (3) = A3t + " lad 
en'':At(4) = A3t t “ spei ehernAt (5) = “File 1 öschen": At (6) = "Filena 
men andern":At(7) = "File schützen (LOCK) ":At (Bl = "CATALOS" 

IBO Bt(l) = A4t + “ eingeben"! B$(2) = "X-Achsenabschni 11 wähl en": Bt(3) = 
"Y-Achsenahschnitt wählen ":Bt (4) = A3$ + " zeiebnen":Bt(5) = A3t + “ 
(-en) anzei gen":fit(6) = "EingahegröBen auf 1isten":Bt (71 = "Hertetabel 
1e erstellen" 


190 Bf(81 = "Druckroutinen“:Bt(9) = "Diskettenoperationen" 
200 Dt = CHRt (4) 

210 PRINT Df'BLOADFUNKTIONEN EXC,At300" 

220 REM--Hauptaenü- 

230 POKE 34,0: POKE 216,0 
240 POKE 35,24: HOME 


250 INVERSE : PRINT " FUNKTIONEN NORMAL 

260 POKE 34,2 

270 VTAB 5: PRINT "Ihnen stehen folgende Operationen zur Verfügung 

280 PRINT : PRINT 
290 FOR I = 1 TO 9 

300 PRINT '■ <■■;! INVERSE : PRINT Ij; NORMAL : PRINT "> "Bt(I) 

310 NEXT I 

320 VTAB 24: PRINT "Ende:<";: INVERSE : PRINT "CTRL-E";: NORMAL : PRINT 
">"i! VTAB 19 

330 PRINT ! PRINT " "HSt; 

340 6ET Wt 

350 IF ASC (H$) = 5 THEN POKE 34,0: VTAB 24: SPEED= 190: FOR I = 1 TO 

24: PRINT : NEXT I: SPEED= 130: PRINT '<C> BY STEFAN WEIL";: VTAB 1: SPEED= 
255: END 

360 H = VAL (Ht): IF H < I THEN 340 
370 HOME 

380 ON H 60T0 410,900,1050,1240,390,2510,2650,4430,3030 

390 POKE - 16304,0: POKE - 16299,0: POKE - 16297,0: GET Ht: IF ASC ( 

Nt) = 67 THEN CALL 768: GOTO 390 
400 TEXT : GOTO- 230 


410 

REH ' 


■ Ei 

ngabe Funktionsgleichung 



420 

VTAB 

23: GOSUB 4030 




430 

FOR I 

: = 11 TO 

21: 

VTAB I: 

READ At,A: HTAB 

6: PRINT At;: 

NEXT 1 

440 

FOR 1 

1 = 11 TO 

21: 

VTAB I: 

! READ At,A: HTAB 

19: PRINT At; 

! NEXT I 

450 

FOR I 

1 = 11 TO 

20: 

VTAB I: 

READ At,A: HTAB 

30: PRINT At: 

NEXT I 

460 

VTAB 

18: HTAB 

21: 

PRINT ' 

’ (=Pi) ■: HTAB 21: 

PRINT "(=el''! 

RESTORE 

470 

VTAB 

4: PRINT 

"Geben Sie 

die Funktionsg1ei 

ichung ein;" 


480 

VTAB 

7: PRINT 

"Y 

= “Ft" 





490 

VTAB 

7: HTAB 5: INPUT ""jYt: IF 

Yt = 

THEN 230 





500 

REM 








510 

IF 

RlGHTt (YS,1) = " " THEN Yt 

= LEFTt 

(Yt, LEN 

(Yt) 

- 1): 

GOTO 

51 

520 

0 

IF 

LEFTt (Y$,l) = " " THEN Yt = 

: RlGHTt 

(Yt, LEN 

(Yt) 

- 1): 

GOTO 

52 

530 

0 

FOR 

I = 2 TD LEN (Yt) - 1 







540 

• IF 

riDt (Yt,I,l) < > " ■ THEN 

560 






550 

Yt = 

LEFTt (V$,l - 1) + RISHTt 

(Yt, LEN 

(Yt) - l) 

:I = 

I - 1 




560 NEXT 1 

570 GL = 0:LE = LEN (Yt) 

580 FOR I = I TO LE 

590 GL = GL + I:rz = 0: RESTORE 

600 Bt = HIDt (Yt,I,3) 

610 FOR Z = 1 TO II 
620 READ At,A! IF At < > Bt THEN 640 

630 6L(GL) = A:FZ = 1:I = I + 2:Z = 11 
640 NEXT 2 

650 IF FZ = I THEN 720 
660 Bt = MIDI (Yt,I,l) 

670 FOR Z = 1 TO 21 

680 READ At,A: IF At < > Bt THEN 700 

690 GL(6L) = A:FZ = 1:2 = 21 
700 NEXT Z 

710 IF FZ = 0 THEN RESTORE : BOTO 750 
720 NEXT I 

730 IF GL > 90 THEN GOSUB 4010: HOME ; VTAB it; PRINT "Die Funktion ist 
"GL - 90: PRINT : PRINT "Zeichen / Funktionen zu lang!": GOSUB 4020: 
RESTORE : HOHE : GOTO 410 
740 RESTORE : GOTO 780 
750 HOHE ! GOSUB 4010: VTAB 10 

760 PRINT "Verwenden Sie nur die Zeichen und": PRINT : PRINT "Funktionen 
,die Sie auf der unteren": PRINT : PRINT "Hälfte des Bildschiras sehe 
n !": GOSUB 4020: HOME : GOTO 410 

770 REH - Funktionster« in Progra«« einbinden - 

780 FOR I = 1 TO GL 
790 POKE I t 2092,61(1) 

800 NEXT I 

BIO FOR Z = I TO 90: POKE l + 2092,58: NEXT Z 
820 60SUB 30:Ft = Yt 

B30 REM.— Test auf SYNTAX ERROR- 

840 ONERR GOTO 860 

850 A = FN Fd): POKE 2I6,0:FF = 1: GOTO 230 

860 IF PEEK (222) < > 16 THEN POKE 216,0:FF = 1: GOTO 230 

870 Ft = "" 

880 HOME ! BOSUB 4010: VTAB 12: PRINT "Die Funktion ist fehlerhaft defin 
iert I"! GOSUB 4020: POKE 216,0: HOME :F(01 = 0: GOTO 410 

890 REM . X- u. Y-Intervall eingehen .. 

900 HTAB 8: PRINT Btl2) 

910 VTAB 6: PRINT "Geben Sie die Begrenzungen für X an!" 


920 

ONERR 

GOTO 1200 



930 

VTAB 

10; HTAB 8: 

INPUT "X «in = 

“;XC 

940 

ONERR 

BOTO 1210 



950 

VTAB 

14: HTAB 8; 

INPUT "X «ax = 

";XD 


960 POKE 216,0 

970 IF XC > = XD THEN 1010 

980 IF - XC + XD < EX THEN VTAB 18: HTAB 6: GOSUB 4010: PRINT BFt: BOSUB 
4020: HOME : GOTO 900 
990 X5 = XC;X6 = XD: GOSUB 4200 
1000 FX = 1:XF = 1: GOTO 230 
1010 GOSUB 4010 

1020 PRINT : PRINT : PRINT : PRINT "X «in «uG kleiner als X «ax sein!" 

1030 GOSUB 4020 
1040 HOME ! GOTO 900 
1050 HTAB 8i PRINT Bt(3) 

1060 VTAB 6: PRINT "Geben Sie die Begrenzungen für Y an!" 

1070 ONERR GOTO 1220 

1080 VTAB 10: HTAB 8: INPUT "Y «in = ";YC 
1090 ONERR GOTO 1230 

1100 VTAB 14: HTAB 8; INPUT "Y nax = '';YD 

1110 POKE 216,0 

1120 ‘IF YC > = YD THEN 1160 

1130 IF - YC + YD < EX THEN GOSUB 4010: VTAB 18: HTAB 8: PRINT BFt: 60SUB 
4020: HOME : GOTO 1050 
1140 Y5 = VC!Y6 = YD: GOSUB 4320 
1150 FY = 1:YF = 1: GOTO 230 
1160 GOSUB 4010 

1170 PRINT ! PRINT : PRINT : PRINT "Y «in «uß kleiner als Y «ax sein!" 


1180 

GOSUB 4020 



1190 

HOME : GOTO 1050 



1200 

VTAB 10: 

CALL - 958: GOTO 930 


1210 

VTAB 14: 

CALL - 958: GOTO 950 


1220 

VTAB 10: 

CALL - 958: GOTO 1080 


1230 

VTAB 14: 

CALL - 950: GOTO 1100 


1240 

HOME ! POKE 34,2 



1250 





REH 



1260 

VTAB 1: 

INVERSE ! PRINT 

" FUNKTIONSGRAPH ZEICHNEN 


NORMAL 




1270 

VTAB 7 




1280 

PRINT " 

< 1 > in altes 

"Kt 


1290 

PRINT " 

<2> in neues 

"Kl 


1300 

PRINT " 

<3> Bereich 1 

Bereich 

2“ 

1310 

PRINT " 

<4> Bereich 2 

--> Bereich 

1’ 

1320 

PRINT " 

<5> ßereich 1 

<-> Bereich 

2" 

1330 

PRINT " 

<6> "Bt(5) 




1340 PRINT " <1> "Bt{6) 

1350 INVERSE 

1360 FOR I = 7 TO 13 

1370 VTAB I! HTAB 6: PRINT I - 6 

1380 NEXT I 

1390 NORMAL 

1400 VTAB 23: GOSUB 4030: VTAB 17 
1410 PRINT " Has «ächten Sie “i 
1420 AB = 0 

1430 GET Ht:H = VAL (Ht) 

1440 IF ASC (Ht) = 13 THEN 230 
1450 IF H < 1 OR H > 7 THEN 1430 
1460 HOME 

1470 ON H GOTO 1480,1480,2310,2320,2330,2460,2480 
1480 IF FF < > 0 AND XF < >0 AND YF < >0 THEN 1540 
1490 GOSUB 4010: PRINT : PRINT "Als Voraussetzung fehlt:": PRINT : PRINT 
; PRINT 

1500 IF FF = 0 THEN HTAB 14: PRINT "Die Funktion V=f(X)": PRINT : PRINT 

1510 IF XF = 0 THEN HTAB 14: PRINT "Der X-Achsenabschni11": PRINT : PRINT 

1520 IF YF = 0 THEN HTAB 14: PRINT "Der Y-Achsenabschnitt" 

1530 GOSUB 4020: GOTO J240 

1540 IF Fl = 0 THEN 1570 

1550 IF FX = 0 AND FV = 0 THEN 1570 

1560 IF H = 1 THEN 4080 

1570 XI = XC:X2 = XD:Yi = VC:Y2 = YD:X3 = XC:X4 = XD 
1580 HOME : GOTO 1680 

1590 HOME : VTAB 5: HTAB 6: PRINT "X «in - "XI: VTAB 8: HTAB 6: PRINT “X 
«ax = "jX2 

1600 VTAB 23: GOSUB 4030: VTAB 11: HTAB 8: PRINT "Geben Sie XI und X2 ei 
n! “ 
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1610 VTAB H: HTAB 6: INPUT "Kl = "jU*: IF U* = "^ THEN 1670 
1620 X3 = VAL (Ut): VTflB 16; HTAB 6: INPUT “X2 = '‘jU*: IF Ut = THEN X 
3 = XC; GOTO 1670 
1630 PRINT : PRINT 

1640 X4 = VAL (U$): IF X3 > = X4 THEN BOSUB 4010: PRINT "XI nuß kleine 

r als X2 sein!'; GOSUB 4020; GOTO 1590 
1650 IF X3 < XI OR X4 > X2 THEN GOSUB 4010: PRINT "Das Intervall nuG in 
nerhalb von X min und X nax liegen!": GOSUB 4020; GOTO 1590 
1660 IF - X3 + X4 < EE THEN GOSUB 4010: PRINT BF$: GOSUB 4020: GOTO 15 
90 

1670 HOME : VTAB 1: INVERSE : PRINT " FUNKTIONSGRAPH ZEICHNEN 

NORMAL : POKE 34,2 

1600 VTAB 7: HTAB II: PRINT "<1> Y zeichnen": VTAB 9: HTAB 11: PRINT 
2> Y' zeichnen": VTAB 11: HTAB 11: PRINT ■<3> X-Intervall einschränke 
n": VTAB 13: HTAB 11; PRINT "<4> Punkte <-> Linien" 

1690 VTAB 18: HTAB 11: PRINT HSt 

1700 VTAB 23: GOSUB 4030: GOSUB 4940 

1710 GET A$:A = VAL (AJl: IF A* = CHR* (131 THEN 1240 

1720 IF A = 4 THEN FG = NOT FG: GOSUB 4940: GOTO 1710 

1730 IF A = 3 THEN 1590 

1740 IF A = 2 AND - XI + X2 < .001 THEN HOHE : VTAB 10: GOSUB 4010: PRINT 

"Der Bereich ist zu klein ua die": PRINT : PRINT "Ableitung zu zeichn 
en!": GOSUB 4020: GOTO 1670 
1750 IF A > 3 OR A < 1 THEN 1710 
1760 POKE 230,64 
1770 HX = SX « - Xl:My = SY * Y2 

1760 IF H < > 1 OR Fl = 0 THEN CALL - 3006 

1790 S = 1 / SX:R = SX 

1800 POKE - 16304,0: POKE - 16299,0: POKE - 16297,0: HCOLOR= 3 
IßlO IF H = 1 AND Fl = 1 THEN 2170 

1020 REM - Koordinatensyste« zeichnen - 

1830 IF MX < 0 DR HX > 278 THEN 1850 
1840 HPLOT HX,0 TO HX,191 

1850 IF HX > 274 OR MY < 5 OR MY > 185 THEN 1670 

1860 HPLOT 278,MY + I: HPLOT 277,MY + 2: HPLOT 276,MY + 3: HPLOT 278,MY - 
1: HPLOT 277,MY - 2: HPLOT 276,HY - 3 
1870 IF HY < 2 OR HY > 108 THEN 2010 
1880 IF MX > 278 THEN 1960 
1890 Z = HX 

1900 IF Z < Ü THEN Z = t INT ( - (Z / (XE * SX))) + 1) * IXE * BX) + Z 

1910 HPLOT Z,MY - 2 TO 2,MY ♦ 2 

1920 Z = Z + XE * SX 

1930 IF Z > 272 THEN 1950 

1940 GOTO 1910 

1950 IF HX < 0 THEN 2010 

1960 Z = MX 

1970 IF Z > 297 THEN Z = ( INT C - {Z / (YE * SY))) + 1) « (YE # SY) + Z 

1980 HPLOT Z,HY - 2 TO Z,HY + 2 

1990 Z = Z - XE « SX: IF Z < 0 THEN 2010 

2000 GOTO 1980 

2010 IF HY < 0 OR HY > 191 THEN 2030 
2020 HPLOT 0,HY TO 279,MY 

2030 IF HY < 5 OR MX < 5 OR HX > 274 THEN 2050 

2040 HPLOT MX - 1,1: HPLOT MX - 2,2: HPLOT MX - 3,3: HPLOT MX + 1,1: HPLOT 

MX t 2,2: HPLOT MX + 3,3 
2050 IF MX < 2 OR MX > 276 THEN 2170 
2060 IF MY < 5 THEN 2130 
2070 Z = MY 

2080 IF Z > 191 THEN Z = Z - SY * VE: GOTO 2080 

2090 HPLOT MX - 2,Z TO MX + 2,Z 

2100 Z = Z - SY * YEi IF Z < 5 THEN 2120 

2110 GOTO 2090 

2120 IF MY > 185 THEN 2170 

2130 1 = MV 

2140 Z = Z + SY * YE: IF Z > 190 THEN 2170 
2150 HPLOT MX - 2,Z TO MX + 2,Z: GOTO 2140 

2160 REM-Y zeichnen - 

2170 ONERR GOTO 2270 
2180 FR = 1:X = X3 
2190 IF A = 2 THEN 2350 
2200 Y = FN F tX) 

2210 XM = SX • X + .5 + MX:YM = MY - SY * Y 

2220 IF FG = 0 OR FR = 1 THEN FR = 0: HPLOT XM,YM: GOTO 2240 
2230 HPLOT TO XM.YM 
2240 X = X t S 

2250 IF X > X4 THEN TEXT :F1 = 1:FX = 0:FY = 0: POKE 216,0:H = I: GOTO 
1670 

2260 GOTO 2200 
2270 FR = 1:X = X + S 

2280 IF PEEK (222) = 255 THEN X = X4 + 1 

2290 IF X > X4 THEN TEXT :F1 = 1:FX = 0:FY = 0: POKE 216,0:H = 1: GOTO 
1670 

2300 GOTO 2200 
2310 CALL 020: GOTO 1240 
2320 CALL 872: GOTO 1240 
2330 CALL 768: GOTO 1240 

2340 REM..Y' zeichnen- 

2350 ONERR GOTO 2420 

2360 Y = ( FN FIX + EP) - FN FIX - EP)) / EQ 
2370 XH = SX » X + .5 + nX:YM = MY - SY * Y 

2380 IF FG = 0 OR FR = 1 THEN FR = 0: HPLOT XM,VM: GOTO 2400 
2390 HPLOT TO XH,YM 

2400 X = X + S: IF X > X4 THEN TEXT :FI = 1:FX = 0:FY = 0: POKE 216,0:H = 

1; GOTO 1670 
2410 GOTO 2360 
2420 FR = IrX = X + S 

2430 IF PEEK 1222) = 255 THEN X = X4 + 1 

2440 IF X > X4 THEN TEXT :F1 = 1:FX = 0:FY = 0; POKE 216,0:H = 1: GOTO 
1670 

2450 GOTO 2360 


2460 POKE - 16304,0: POKE - 16299,0; POKE - 16297,0: GET W$: IF ASC 
(Ht) = 67 THEN CALL 768: GOTO 2460 
2470 TEXT : GOTO 1240 
2480 F9 = 1: GOTO 2510 

2490 PRINT " Drücken Sie eine Taste!";: GET A$: GOTO 1240 

2500 REM -Größen anzeigen - 

2510 INVERSE : VTAB 1: PRINT " EINGABEGRÖSSEN 

NORMAL 


2520 GOSUB 2560 

2530 VTAB 22: PRINT " Drücken Sie eine Taste!";: GET 

2540 IF F9 = 1 THEN F9 = 0: GOTO 1240 
2550 GOTO 230 

2560 PRINT : IF Fi = "" THEN PRINT : GOTO 2590 
2570 IF LEN (Ft) > 35 THEN PRINT "Y = "Ft: GOTO 2590 
2500 HTAB 137 - LEN IFt)) / 2: PRINT "V = "Ft 

2590 PRINT : PRINT : PRINT " X min = "XC;: HTAB 23: PRINT "X »ax = "XD 

2600 PRINT : PRINT : PRINT " Y nin = "YC;: HTAB 23: PRINT "Y max = "YD 

2610 PRINT : PRINT : PRINT : PRINT " X-Einheit : "XE 

2620 PRINT ; PRINT : PRINT " V-Einheit : "YE 

2630 RETURN 

2640 REM -Nertetabelle - 

2650 VTAB 1: INVERSE : PRINT " WERTETABELLE ": 

NORMAL 

2660 IF FF = 0 THEN VTAB 5: PRINT "Als Voraussetzung fehlt:": PRINT : PRINT 
: HTAB 15: PRINT "Die Funktion Y=t[X)": GOSUB 4010: GOSUB 4020: GOTO 
230 


2670 PRINT : PRINT : HTAB 5: PRINT "Geben Sie die untere und obere 
Grenze soHie die SchrittHeite für die X-Herte an!" 

26B0 ONERR GOTO 3000 

2690 VTAB 12: INPUT " Untergrenze = '■;XA 

2700 ONERR GOTO 3010 

2710 VTAB 15: INPUT “ Obergrenze = ";XB 

2720 POKE 216,0 
2730 VTAB 18 

2740 IF XA > = XB THEN GOSUB 4010: PRINT " Die Untergrenze muß klei 

ner": PRINT : PRINT " als die Obergrenze sein : GOSUB 4020; HOME 
: GOTO 2650 

2750 IF - XA + XB < lE - 7 THEN GOSUB 4010: HTAB 5: PRINT BFt: GOSUB 4 
020: HOHE : GOTO 2670 

2760 INPUT " SchrittMBite : ";St:S = VAL (St); IF S < =0 THEN VTAB 

18: GOTO 2760 

2770 IF XB - XA < S THEN VTAB 22: GOSUB 4010: PRINT " Die Schrittwei 
te ist zu groß!": GOSUB 4020: VTAB 18; CALL - 958: GOTO 2760 
2780 IF S < IE - 8 THEN VTAB 22: BOSUB 4010: PRINT " Die Schrittwei 
te ist zu klein!": GOSUB 4020: VTAB 18: CALL - 958: GOTO 2760 
2790 HOME 

2800 PRINT : HTAB 7: PRINT "X";: HTAB 19: PRINT “I“;: HTAB 33: PRINT "Y" 

2B10 PRINT "= = = = = = = = === === = = = = = = = = = = = =: = = = = = = = = = === = =" 

2820 R = 1 / 5 

2830 ONERR GOTO 2930 

2640 POKE 34,5 

2850 VTAB 24: PRINT "Exit : INVERSE : PRINT "CTRL-C";: NORMAL : PRINT 

">":: VTAB 7: PRINT : VTAB 6 
2860 POKE 35,22 
2870 Y = FN FIXA) 

2800 PRINT " "XA;: HTAB 19: PRINT "I";: HTAB 25: PRINT V 

2890 XA = INT IR * IXA + S + S / 1.5)) / R: IF XA > XB + S / 1.5 THEN PRINT 

: PRINT " Drücken Sie eine Taste!";: GET At: GOTO 230 

2900 IF PEEK (37) > 19 THEN GET At: GOTO 2970 
2910 HTAB 19; PRINT "1" 

2920 GOTO 2870 

2930 IF PEEK (222) = 255 THEN 230 

2940 XA = INT (R * (XA + S + S 7 1.5)) / R 

2950 IF XA > XB + S / 1.5 THEN PRINT : PRINT " Drücken Sie eine Tas 
te! ": GET At: GOTO 230 
2960 RESUME 

2970 IF ASC (At) = 3 THEN 230 

2980 IF At = " " THEN 2910 

2990 HOME : GOTO 2870 

3000 VTAB 12; CALL - 958: GOTO 2690 

3010 VTAB 15: CALL - 958: GOTO 2710 

3020 REH - Diskettenoperationen - 

3030 HOME : VTAB l: INVERSE : PRINT " DISKETTENDPERATIONEN 

": NORMAL : VTAB 4 
3040 VTAB 7 
3050 FÜR I = 1 TO 8 

3060 PRINT " INVERSE ; PRINT 1;: NORMAL : PRINT "> "At(I) 

3070 NEXT I 

30B0 VTAB 23: 6ÜSUB 4030: VTAB 18 
3090 PRINT " "HSt; 

3100 GET W$: PRINT Ht:H = VAL (Ht) 

3110 IF ASC (Hl) = 13 THEN 230 

3120 IF H ( 1 OR H > 8 THEN VTAB 18: GOTO 3090 

3130 HOME 

3140 IF W < >8 THEN 3100 

3150 PRINT Df'CATALDG" 

3160 PRINT : PRINT "Drücken Sie eine Taste";: GET At 
3170 HOME : GOTO 3030 

3100 HOHE ; HTAB (40 - LEN (At(H))l / 2: PRINT At(H) 

3190 VTAB 23: GOSUB 4030 

3200 IF H = 2 AND FF = 0 THEN VTAB 10: GOSUB 4010: PRINT " Es ist Kein 
e Funktion U Speicher!“: GOSUB 4020: HOME ; GOTO 3030 
321Ü IF H = 2 THEN VTAB 18: PRINT "Y="Ft 
3220 VTAB 6: PRINT " Geben Sie den Filenamen an!" 

3230 PRINT : PRINT : INPUT "Filenase : ";Nt 
3240 IF Nt = "" THEN 3030 

3250 IF LEN (Nt) > 30 THEN GOSUB 4010: PRINT : PRINT : PRINT : HTAB 0: 

PRINT "Der Filenace ist zu lang'": GOSUB 4020: GOTO 3180 
3260 IF H = 2 OR H = 4 THEN 3300 
3270 ONERR GOTO 4040 
3200 PRINT Dl"VERlFY"Nt 
3290 POKE 216,0 

3300 ON H GOTO 3310,3390,3510,3580,3720,3780,3950 
3310 ONERR GOTO 3370 
3320 PRINT Dt"OPEN"N$ 

3330 PRINT Dt"READ"Nl 

3340 INPUT Vt 

3350 PRINT Df'CLDSE" 

3360 POKE 216,0: PRINT : PRINT ; PRINT ■'Y = "Y$: GOTO 570 

3370 F = PEEK (222): POKE 216,0 

3380 IF F = 13 THEN GOTO 4040 

3390 ONERR GOTO 3420 

3400 PRINT Dt"VERIFY"Nt 

3410 GOTO 4140 

3420 F = PEEK (222): POKE 216,0 
3430 IF F = 6 THEN 3460 

3440 IF F = 9 THEN VTAB 16: PRINT " Die Diskette ist voll'": GOSUB 

4020: HOME : PRINT Dt"DELETE"Nt: GOTO 3030 
3450 GOTO 3180 
3460 PRINT Dt"OPEN"Nt 
3470 PRINT Dt“HRITE"N$ 

3480 PRINT Ft 
3490 PRINT Dt"CLOSE" 

3500 HOME : GOTO 3030 
3510 ONERR GOTO 3550 

3520 VTAB 15: HTAB 14; PRINT "Bitte warten!" 

3530 PRINT Dt"BLOAD"Nf' ,At4000" 

3540 POKE 216,0; GOTO 230 
3550 F = PEEK (222): POKE 216,0 

3560 IF F = 13 THEN PRINT : PRINT "Es existiert Kein Binärfile"; PRINT 
: PRINT "Hit den Namen "Nt: GOSUB 4020: HOHE : GOTO 3180 
3570 GOTO 3180 

3580 ONERR GOTO 3610 

3590 PRINT Dt"VERIFY"Nt 
3600 POKE 216,0: GOTO 4140 
3610 F = PEEK (222): POKE 216,0 
3620 IF F < >6 THEN 3180 

3630 VTAB 15: HTAB 14: PRINT "Bitte warten!" 

3640 ONERR GOTO 3670 

3650 PRINT D$"BSAVE"Nt",Ai4000,LtlFFF" 

3660 POKE 216,0: HOME : GOTO 3030 
3670 F = PEEK (222): POKE 216,0 
3660 IF F < >9 THEN 3180 

3690 PRINT : PRINT : HTAB 10; PRINT "Die Diskette ist voll!" 

3700 PRINT Dt"DELETE''Nt 

3710 HOME : GOTO 3030 

3720 ONERR GOTO 3750 

3730 PRINT Dt"DELETE"Nt 

3740 POKE 216,0: GOTO 3030 

3750 F = PEEK (222): POKE 216,0 

3760 IF F = 10 THEN PRINT : PRINT : PRINT "Das File ist geschützt!"; GOSUB 
4020; HOHE : GOTO 3180 
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3770 HOME : GOTO 3180 

37B0 VTftB 12: INPUT "neuer Filenaine ; “;NF* 

3790 CflLL - 958 

3800 IF LEN (NFS) > 30 THEN PRINT : PRINT "Der neue Nd«e ist zu lang!" 

: GOSUB 4020: GOTO 3780 
3810 ONERR GOTO 3080 
3820 PRINT D*"VERIFy"NF$ 

3830 60BUB 4010 

3840 VTAB 14: HTflB 6: PRINT "Es existiert bereits ein File": VTAB 16:AS = 

"mit den Namen " + NFS 

3850 IF LEN (flS) > 38 THEN PRINT A$: GOTO 3870 

3860 HTAB (40 - LEN (fit)) 7 2: PRINT AS 

3870 GOSUB 4020: VTAB 14: CALL - 958: GOTO 3780 

3080 F = PEEK (222): POKE 216,0 

3890 IF F < >6 THEN HOHE : GOTO 3180 

3900 ONERR GOTO 3930 

3910 PRINT Dt"RENAME"NS","NF$ 

3920 GOTO 3030 

3930 F = PEEK (222): IF F < >10 THEN 3030 

3940 GOTO 3760 

3950 PRINT DJ"LOCK"Nt 

5960 GOTO 3030 

3970 REH - Data Tür Fun kt i onster m- 

3900 DATA INT,211,ABS,212,SßR,218,L0G,22O,EXP,221,SIN,223,C0S,222,TAN, 
224,ATN,225,SGN,210,RND,219 

3990 DATA +,200,-,201,*,202,/,203,^,204,(,40,),41,P,80,E,69,X,80,.,46 
,0,40,1,49,2,50,3,51,4,52,5,53,6,54,7,55,0,56,9,57 

4000 REM - Unterroutinen Tür Fehlerbehandlung - 

4010 FOR 1 = 1 TO 4: CALL - 198: NEXT I: RETURN 

4020 FOR I = 1 TO 2600: NEXT I: RETURN 

4030 PRINT "Exit : < “;: INVERSE ; PRINT "RETURN";: NORMAL : PRINT ">": RETURN 

4040 GOSUB 4010: VTAB 14: HTAB 9: PRINT "Es existiert kein File": VTAB I 

6:AJ = "mit dem Namen " + Nf 
4050 IF LEN (AS) > 30 THEN PRINT AJ: GOTO 4070 
4060 HTAB (40 - LEN (AS)) / 2: PRINT At 
4070 GOSUB 4020: GOTO 3100 

4000 VTAB 6: PRINT "Es ist nicht möglich,den Fun ktiuns-": PRINT ; PRINT 
"graphen in das alte Koordinatensysten": PRINT : PRINT "zu zeichnen,d 
a Sie die Achsenaöschnitte": PRINT : PRINT “geändert haben!" 

4090 PRINT ; PRINT "Süllen die alten Achsenabschnitte": PRINT : PRINT "w 
ieder eingesetzt werden? 

4100 6ET Hf 

4110 IF at = "J" OR Hf = "j" THEN XC = X1:XD = X2:YC = 91:90 = 92:X5 = X 
1:X6 = X2:Y5 = 91:96 = 92: GOSUB 4200: GOSUB 4320:FX = 0:FY = 0: GOTO 
1670 

4120 IF Hf = "N" OR Ht = "n" THEN 1240 
4130 GOTO 4100 

4140 GOSUB 4010; VTAB 14: HTAB 6: PRINT "Es existiert bereits ein File" 

4150 VTAB 16:Af = "mit dem Namen " + Nf 

4160 IF LEN (Af) > 38 THEN PRINT Af; GOTO 4100 


4170 HTAB (40 - LEN (Af)) / 2: PRINT Af 
41B0 GOSUB 4020: GOTO 3190 

4190 REM - Einheitenberechnung ■ 

4200 1 = - X5 + X6 


42)0 IF 2 < 1 THEN 4250 
4220 U = 0 

4230 U = U f 1:Z = 2 / 10: IF Z > 1 THEN 4230 
4240 XE = 10 (U - 1); GOTO 4280 
4250 U = 0 

4260 U = U + 1:2 = 2 » 10: IF 2 < 1 THEN 4260 
4270 XE = 10 - U 

4200 IF - X5 = X6 THEN SX = 27ß / (2 * X6): GOTO 4300 
4290 5X = 278 / ( - X5 + X6) 

4300 IF SX * XE > 60 THEN XE = XE / 2: GOTO 4300 

4310 RETURN 

4320 2 = -95+96 

4330 U = 0: IF 2 < 1 THEN 4360 

4340 U = U + 1:2 = 2 / 10: IF Z > 1 THEN 4340 

4350 YE = 10 '' (U - 1): GOTO 4380 

4360 U = U + 1:2 = Z + 10: IF 2 < 1 THEN 4360 

4370 YE = 10 - U 

4580 IF 95 = 96 THEN S9 = 190 / (2 * 96): GOTO 4400 
4390 SY = 190 7 ( - 95 + 96) 

4400 IF 9E * SY > 50 THEN 9E = YE 7 2: GOTO 4400 
4410 RETURN 

4420 REH- Druckroutinen - 

4430 TEXT : HOHE : VTAB 1: INVERSE : PRINT " DRUCKROUTINEN (FX-B 

0) NORMAL 

4440 POKE 34,2 
4450 HOME 

4460 VTAB 6: HTAB 6: PRINT "<1> “A3t" drucken" 

4470 VTAB B: HTAB 6: PRINT "<2> dta. mit X7V - Intervall" 

4400 VTAB 10: HTAB 6: PRINT "<3> dto. mit "A4$ 

4490 VTAB 12: HTAB 6; PRINT "<4> NORMAL <--> INVERSE" 

4500 VTAB 14: HTAB 6: PRINT "<5> Beitenvorschub" 

4510 GOSUB 4910 

4520 VTAB 23: GOSUB 4030: VTAB 18: HTAB 6: PRINT HSf; 

4550 GET Hf:H = VAL (Hf): IF Hf = CHRf (13) THEN HOME : GOTO 230 

4540 IF H = 4 THEN IN = NOT IN: GOSUB 4910: VTAB 10: HTAB 23: GOTO 4530 


4860 PRINT CHRf (151"Y-1nterval1:" CHR* (18)" Y" CHRf (27)"S" CHRf (1)" 
min" CHRf (27)"T"" = “91 CHRf (13) CHRf (10); 

4070 PRINT SPC( 8)"Y'‘ CHRf (27)"S“ CHRf (l)“max" CHRf [27)"T"" = "92 CHRf 
(13) CHRf (10) CHRf (10); 

4880 PRINT "X-Einheit: "XE CHRf (13) CHRf (10)"9-Einheit: "YE 
4890 FOR I = 1 TO 5: PRINT CHRf (10);: NEXT I: PR* 0: GOTO 4430 
4900 REM-Unterroutinen.. 

4910 VTAB 23: HTAB 28: INVERSE : IF IN = 1 THEN PRINT "INVERSE"; 

4920 IF IN = 0 THEN PRINT "NORMAL"; 

4930 NORMAL : PRINT " RETURN 

4940 VTAB 23: HTAB 30: INVERSE : IF FG = 1 THEN PRINT "LINIEN"; 

4950 IF FG = 0 THEN PRINT "PUNKTE"; 

4960 NORMAL : VTAB 18: HTAB 28: RETURN 

4970 HOME : VTAB 12: HTAB 13: PRINT “Drucker bereit?"; 

4980 GET At 
4990 RETURN 
5000 REM V 1.1 


Maschinenprogramm FUNKTIONEN EXC 


0300^ 

AD 

83 CO 

LDA 

$0083 

0351- 

EA 



NÜP 


0303- 

AD 

83 CO 

LDA 

$C083 

0352- 

EA 



NDP 


0306- 

A9 

00 

LDA 

#$00 

0353- 

EA 



NOP 


0300- 

85 

00 

STA 

$00 

0354- 

CB 



INY 


030A- 

85 

02 

STA 

$02 

0355- 

DO 

F3 


BNE 

$034A 

030C- 

A9 

DO 

LDA 

#$D0 

0357- 

E6 

01 


INC 

$01 

030E- 

85 

03 

STA 

$03 

0359- 

E6 

03 


INC 

$03 

0310- 

A9 

40 

LDA 

#$40 

03SB- 

A5 

01 


LDA 

$01 

0312- 

85 

01 

STA 

$01 

035D- 

C9 

FO 


CMP 

#$F0 

0314- 

AO 

00 

LDY 

#$00 

035F- 

DO 

E7 


BNE 

$0348 

0316- 

Bl 

00 

LDA 

($00),Y 

0361- 

AD 

81 

CO 

LDA 

$C081 

031 e- 

48 


PHA 


0364- 

AD 

81 

CO 

LDA 

$C081 

0319- 

Bl 

02 

LDA 

($02) , Y 

0367- 

60 



RTB 


031B- 

91 

00 

STA 

($00),Y 

0368- 

AD 

83 

CO 

LDA 

$C083 

031D- 

68 


PLA 


036B- 

AD 

83 

CO 

LDA 

$CO03 

031E- 

91 

02 

STA 

($02),Y 

036E- 

A9 

00 


LDA 

#$00 

0320- 

C8 


INY 


0370- 

85 

00 


STA 

$00 

0321- 

DO 

F3 

BNE 

$0316 

0372- 

85 

02 


STA 

$02 

0323- 

E6 

01 

INC 

$01 

0374- 

A9 

DO 


LDA 

#$D0 

0325- 

E6 

03 

INC 

$03 

0376- 

85 

03 


STA 

$03 

0327- 

A5 

01 

LDA 

$01 

0378- 

A9 

40 


LDA 

#$40 

0329- 

C9 

60 

CMP 

#$60 

037A- 

85 

01 


STA 

$01 

032B- 

DO 

E7 

BNE 

$0314 

037C- 

AO 

00 


LDY 

#$00 

032D- 

AD 

81 CO 

LDA 

$C081 

037E- 

Bl 

00 


LDA 

($00),Y 

0330- 

AD 

81 CO 

LDA 

$coai 

0300- 

EA 



NOF 


0333- 

60 


RTS 


0381- 

BI 

02 


LDA 

($02),Y 

0334- 

AD 

83 CO 

LDA 

$C083 

0383- 

91 

00 


STA 

($00),Y 

0337- 

AD 

83 CO 

LDA 

$C083 

0385- 

EA 



NDP 


033A- 

A9 

00 

LDA 

#$00 

0386- 

EA 



NÜP 


033C- 

85 

00 

STA 

$00 

0387- 

EA 



NOP 


033E- 

es 

02 

STA 

$02 

0388- 

CS 



INY 


0340- 

A9 

DO 

LDA 

#$D0 

0389- 

DO 

F3 


BNE 

$037E 

0342- 

85 

01 

STA 

$01 

O30B- 

E6 

01 


INC 

$01 

0344- 

A9 

40 

LDA 

#$40 

03BD- 

E6 

03 


INC 

$03 

0346- 

85 

03 

STA 

$03 

038F- 

A5 

01 


LDA 

$01 

0348- 

AO 

00 

LDY 

#$00 

0391- 

C9 

60 


CMP 

#$60 

034A~ 

Bl 

00 

LDA 

($00),Y 

0393- 

DO 

E7 


BNE 

$037C 

034C- 

EA 


NOP 


0395- 

AD 

81 

CO 

LDA 

$C081 

034D- 

Bl 

02 

LDA 

($02),Y 

0398- 

AD 

Bl 

CO 

LDA 

$coai 

034F- 

91 

00 

STA 

($00),Y 

039B- 

60 



RTS 



Erklärung des Autors 

Der Autor, Stefan Hubertus Weil aus Wettenberg bei Gie¬ 
ßen, erklärt, daß das obige Werk keine Zitate, auch keine 
Zitate ohne Quellenangabe, aus fremden Werken enthält. 


4550 IF H = 5 THEN PR# 1: PRINT CHRf (12);: PR« 0: GOTO 4530 
4560 IF H < > 1 AND N < > 2 AND H < >3 THEN 4530 
4570 HOME : VTAB 6: PRINT "Hie soll der "A3f" gedruckt": PRINT 
werden?" 

4580 VTAB II: HTAB 11: PRINT "<!> linksbündig" 


VTAB 13: HTAB 11: PRINT 


4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 


"<2‘> rechtsbündig": IF H = 1 THEN VTAB 15: HTAB 11: PRINT "<3> in de 
r Mitte" 

VTAB 23: GOSUB 4030; VTAB IV: HTAB 11: PRINT HSf; 

GET At:A = VAL (At): IF At = CHRt (13) THEN 4450 
IF A = 3 AND H = 2 THEN 4600 
IF A = 0 OR A > 3 THEN 4600 
GOSUB 4970 

IF At = "J" OR At = "j" THEN 4670 
IF At = "N" DR At = "n“ THEN 4450 
GOTO 6000 

POKE - 16304,0: POKE - 16299,0: POKE - 16297,0 


CHRt (27)"P"i 

CHRt (271"1" CHRt (0); 

> 3 THEN 4740 

CHRt (27) CHRt (15)"Funktion: 


"Ft CHRt (10) CHRt (13) CHRt 


PR# 1 
PRINT 
PRINT 
IF H 
PRINT 
( 10 ); 

4730 PRINT CHRt (18); 

4740 IF IN = 0 THEN POKE 1913,2 
4750 IF IN = 1 THEN POKE 1913,34 
4760 IF A = 3 THEN PRINT CHRt (27)"!" 

4770 IF A = 2 THEN PRINT CHRt (27)"!" 

4700 PRINT CHRt (17); 

4790 IF N = 1 THEN 4090 
4800 IF A = 1 THEN PRINT CHRt (271"1" 

4010 IF A = 2 THEN PRINT CHRt (27)"r' 

4820 FOR I = 1 TO 4: PRINT CHRt (27)"j 
4830 PRINT CHRt (27) CHRt (15); 

4840 PRINT "X-Intervall:" CHRt (18)" X" CHRt (27)"S" CHRt (l)"min" CHRt 
(27)"T"" = "XI; CHRt (13) CHRt (101; 

4850 PRINT SPC( 8)"X" CHRt (271"S" CHRt ll)"«ax" CHRt (27)"T"" = "X2i CHRt 
(13) CHRt (10) CHRt (10); 


CHRt (161; 
CHRt (33); 


CHRt (51); 
CHRt (0); 

" CHRt (255); 
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TESTbERicIlTE 


Kyan-Pascal Programming Toolkits 


System Utilities, MouseText und TurtleGraphics 

getestet von Matthias Meyer 


Kyan, Inc. bietet zu der Programmiersprache 
Kyan-Pascal fünf Software Toolkits mit Assem- 
bler-Include-Files an. Mit diesen vorgefertigten 
Programm-Modulen erhält der Kyan-Pascal- 
Programmierer sofort einsetzbare Standardpro¬ 
zeduren und -funktionen zur Einbindung in ei¬ 
gene Anwendungen. 

Von den Kyan-Toolkits sind bereits erhältlich: 
System Utilities, MouseText, TurtleGraphics 
und Advanced Graphics. (Letztere werden in 
einem der nächsten Hefte besprochen.) 
MouseGraphics ist zwar bereits angekündigt, 
jedoch noch nicht erschienen. 

1. System Utilities Toolkit 

1.1. Einsatzgebiet 

Mit Kyan-Pascal bekommt man eine Menge 
Software fürs Geld. Wenn man jedoch ein kom¬ 
plettes Anwendungsprogramm schreiben 
möchte, muß man erst einmal zahlreiche Stan¬ 
dardprozeduren und -funktionen selbst entwik- 
keln, die im normalen Sprachumfang von Pascal 
nicht enthalten sind. Um nun diese Software- 
Entwicklung abzukürzen und damit die gesamte 
Software-Erstellung zu vereinfachen, wird dem 
Pascalprogrammierer mit den System Utilities 
eine Unterprogrammsammlung mit allgemein 
einsetzbaren Software-Modulen zur Verfügung 
gestellt. 

1.2. Leistungumfang 

Die System Utilities bestehen aus Assem¬ 
blerprozeduren und -funktionen, die sich durch 
den Inciude-Befehl direkt in Pascalprogramme 
einbinden lassen. Sie umfassen die folgenden 
vier Teilgebiete: 

- ProDOS-Modute: Append, BLoad, BSave, 
Copy, Delete, Filesize, Filetype, Find, Find- 
Clock, Format, GetClock, GetDate, GetDir, Get- 
Prefix, GetTime, Lock, MakeDir, PrintFile, 
PrtMLIerror, RemDir, Rename, ScanFile, Set- 
Clock, SetDate, SetPrefix, SetTime, Unlock 

- Funktionen zur Auswertung von Eingabegerä¬ 
ten wie Maus, Joystick, Trackball und Paddle 

- Bildschirm-Management-Routinen: CIrEOLN, 
CIrEOP, CIrLine, CLS, Col80, CursorX, Cur- 
sorY, GetChar, GotoXY, IDMachine, Inverse, 
Normal, ON40, ON80, ScrnBottom, ScrnFull, 


ScrnTop, ScrollDown, ScrollUp, TAB, die größ¬ 
tenteils nur für Apple llc oder Apple Ile mit 80- 
Zeichen-Karte geeignet sind 
- Standardfunktionen: Zufallszahlengenerator, 
externes Sortieren/Mischen, Routine zum Ein¬ 
lesen des Eingabepuffers in einen String, Um¬ 
wandlungsroutinen REAL nach STRING und 
umgekehrt sowie INTEGER nach STRING und 
umgekehrt. 

Auf der Rückseite der Toolkit-Diskette befinden 
sich Demonstrationsprogramme, die einige die¬ 
ser Utilities verwenden und somit als Anwen¬ 
dungsbeispiele dienen. Die Demo-Software 
wurde offensichtlich nicht besonders sorgfältig 
geschrieben, so daß z.B. bei einem CATALOG- 
Programm vor Anzeige eines Filenamens je¬ 
weils das ganze Directory eingelesen wird, was 
nicht gerade geschwindigkeitssteigernd wirkt. 
Ein ebenfalls auf der Diskette vorhandenes, in 
Pascal geschriebenes Programm mit dem Na¬ 
men ESort demonstriert recht eindrucksvoll, wie 
lange externes Sortieren auf Diskette dauern 
kann. 

Bei den ProDOS-Utilities funktionieren die Rou¬ 
tinen GetClock und SetClock nur mit einer origi¬ 
nal Thunderclock-Karte. Eine ProDOS-kompati- 
ble Timemaster-Il-Uhrenkarte z.B. wird zwar 
von FindClock gefunden, jedoch führt ein Aufruf 
von GetClock zum Systemabsturz. Außer bei 
der Bildschirmsteuerung (s.o.) treten sonst aber 
keine weiteren Kompatibilitätsprobleme mit an¬ 
deren Apple-Il-Konfigurationen auf. 

Bewertung: Abgesehen von den nicht ganz 
fertig entwickelten Demoprogrammen, die Im 
praktischen Gebrauch jedoch keine Bedeutung 
haben, kann man die System Utilities aufgrund 
der großen Anzahl nützlicher Erweiterungen so¬ 
wohl einem reinen Pasoal-, als auch einem As¬ 
semblerprogrammierer als Softwarebibliothek 
für Kyan-Pascal weiterempfehlen. 

1.3. Dokumentation 

Toolkit I von Kyan, Inc. besteht aus einer dop¬ 
pelseitigen Diskette und einer Loseblattsamm¬ 
lung von 31 Blättern zum Einheften in einen 
Ordner, der das gleiche Format wie der des 
Kyan Pascal User Manuals hat. Ein von Kyan, 


Inc. für diesen Zweck vertriebener Ordner ko¬ 
stet US$ 9.95 incl. Porto. Man kann sich aber 
statt dessen auch einen gewöhnlichen DIN-A5- 
Ordner kaufen und alle Blätter nochmals lochen. 

Bewertung: Die englischsprachige Dokumen¬ 
tation ist wie die des Kyan Pascal User Manuals 
recht ausführlich und beschreibt im wesentli¬ 
chen die Übergabe der Parameter an die ver¬ 
schiedenen Utilities. 


Bln-Blick 


Name: 

Einsatz: 


Gesamtwertung; 

Dokumentation 

Zweckdienlichkeit; 

Demo-Software; 

Verpackung 

Preis/Leistung: 

Preis: 

Hersteller: 


System Utilities Toolkit 
Assemblerprozeduren und 
Asaemblerfunktlonen für 
Kyan-Pascal 
**** 

««««« (55 Seiten) 

««««« 

«» 


US$ 49,95 

Kyan Software, Inc., 
San Francisco, USA 


(Die beste Bewertung entspricht 5 Sternen) 


2. MouseText Toolkit 

2.1. Einsatzgebiet 

MouseText ist in erster Linie für diejenigen Pas¬ 
cal- oder Assemblerprogrammierer entwickelt 
worden, die das Maus-Design der Macintosh- 
Software auch auf dem Apple II in Ihren Pro¬ 
grammen verwenden möchten. Es handelt sich 
hierbei nicht um ein Grafikprogramm, sondern 
um eine Benutzerschnittstelle mit Fenstertech¬ 
nik, Menüleisten, Pull-Down-Menüs und maus¬ 
kontrollierten Programmabläufen. MouseText 
läuft nur auf dem Apple llc oder dem neuen 
bzw. umgerüsteten Apple Ile mit Maus-Zel- 
chensatz. 

2.2. Leistungsumfang 

MouseText besteht aus einem von Apple, Inc. 
entwickelten, 12K langen Runtime-Modul, wel¬ 
ches im Adreßbereich $6100 bis $8FFF liegt. 
Zur Anpassung an den Pascal-Compiler hat Ky¬ 
an, Inc. die folgenden Assemblerprozeduren 
und -funktionen entwickelt: 
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- Cursor-Befehle: SetCursor, ShowCursor, Hi- 
deCursor, ObscureCursor 

- Interrupts: CheckEvents, FlushEvent, Get- 
Event, PeekEvent, PostEvent, SetKeyEvent 

- Menü-Befehle: Checkltem, Disableltem, Dis- 
ableMenu, HighÜghtMenu, InitMenu, Menu- 
Key, MenuSelect, SetMark, SetMenu 

- Kontroll-Befehle: ActivateControl, FindCon- 
trol, SetControlMax, TrackThumb, Update- 
Thumb. 

- Fenster-Befehle: CloseAll, CloseWindow, 
DragWindow, FindWindow, FrontWindow, 
GrowWindow, InitWindowMargin, OpenWin- 
dow, ScreentoWindow, SelectWindow, Win- 
dowBlock, WindowChar, WindowOp, Window- 
String, WindowtoScreen, WindowText. 

Für Assemblerprogrammierer wird vom Run- 
time-Modul ein sog. Machine-Language-Inter- 
face zur Verfügung gestelit, das dem ProDOS- 
MLI nachempfunden wurde. 

Die Software macht insgesamt einen sehr aus¬ 
gereiften und professionellen Eindruck. Mitge¬ 
liefert werden zwei Demonstrationsprogramme. 
Das eine ist in Pascal geschrieben, das andere 
in Assembler. MouseText kann zwar auch ohne 
Maus mit der Tastatur bedient werden, doch ist 
dies recht umständlich. Leider bleiben bei Ver¬ 
wendung von MouseText in Pascal- oder As¬ 
semblerprogrammen nur noch 8,25K Pro¬ 
grammspeicher übrig, so daß Programmteile öf¬ 
ters von Diskette nachgeladen werden müssen. 
Um diesem Mißstand abzuhelfen, gibt es zwei 
Wege: 

Entweder eine RAM-Disk verwenden oder bei 
Kyan, Inc. den Quellcode der Pascal-Library 
und des MouseText-Moduls bestellen. Mit die¬ 
sem Quellcode ist laut Handbuch eine bedingte 
Assemblierung möglich, d.h. es werden jeweils 
nur diejenigen Teile assembliert, die im Pascal¬ 
programm tatsächlich verwendet werden. Das 
soll bis zu 50% Speicherplatz einsparen. 

Bewertung: Mausorientierte Software ist Ge¬ 
schmackssache. Der eine schwört darauf, der 
andere hält die Maus für eine Spielerei. 
MouseText ist ein Hilfsmittel, um die Program¬ 
mierung von mausorientierter Software zu ver¬ 
einfachen. Nicht zu übersehende Nachteile aller 
mausorientierten Programmen sind großer 
Speicherbedarf und aufwendige Programmie¬ 
rung. Wer jedoch ein Programmierwerkzeug mit 
„Macintosh-Look und -Feeling“ benötigt, ist mit 
MouseText bestens bedient. 


2.3. Dokumentation 

Toolkit II von Kyan, Inc. besteht aus einer dop¬ 
pelseitigen Diskette und einer Loseblattsamm- 
iung von 94 Blättern zum Einheften. Das 
MouseText User Manual beschreibt in einer 
Einführung die Anwendung der Maus- und Fen¬ 
stertechnik beim Macintosh. Dann wird der Auf¬ 
ruf von MouseText-Befehlen aus Pascal- und 
Assemblerprogrammen heraus erklärt und die 
Speicherorganisation behandelt. Es folgen fünf 
Kapitel mit Beschreibungen einzelner Befehls¬ 
gruppen. Auf den nachfolgenden 90 Seiten 
werden alle MouseText-Befehle, deren Überga¬ 
beparameter und Funktionen aufgelistet. Das 
letzte Kapitel behandelt die in MouseText ver¬ 
wendeten Datentypen und -Strukturen. Im An¬ 
hang werden das Apple Mouse-Interface und 


das Mouse-Firmware-Interface, MouseText- 
Fehlermeldungen, die Diskettenorganisation 
und die Anpassung anderer Eingabegeräte an 
MouseText behandelt. 

Bewertung: Insgesamt kann man die Doku¬ 
mentation als sehr ausführlich und daher kom¬ 
plett bezeichnen. Erfreulich ist auch der Anhang 
über die Hardware und Firmware der Apple- 
Maus. 


Eln-Blick 


Name: 

Einsatz: 


Gesamtwertung: 

Dokumentation: 

Zweckdienlichkeit: 

Demo-Software: 

Verpackung: 

Preis/Leistung; 
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Hersteller: 


UouseText Toolkit 
Verwendung von Fenster¬ 
technik und Apple-Haus 
in Kyan-Pascal- 
Programmen 
«*«*« 

»«*«* (184 Seiten) 

«*«*« 

««««* 

«««« 

«*««« 

US$ 49.95 

Kyan Software, Inc., 

San Francisco. USA 


(Die beste Bewertung entspricht 5 Sternen) 


3. TurtleGraphics Toolkit 

3.1. Einsatzgebiet 

TurtleGraphics unterstützt eine Auflösung von 
280x192 Pixeln und funktioniert deshalb mit 
jedem Apple-Il-Typ. Mit Hilfe dieses Pro¬ 
gramms kann man unter Kyan-Pascal einfache 
Hires-Bilder laden und abspeichern, Punkte und 
Linien zeichnen und Flächen ausfüilen. Die Dis¬ 
kette enthält außerdem Prozeduren zur Erzeu¬ 
gung von Tönen und Geräuscheffekten. 

3.2. Leistungsumfang 

Die TurtleGraphics-Dis kette enthält Include- 
Files mit folgenden Prozeduren und Funk¬ 
tionen: 

- Grafik: InitTurtle, PenColor, Graf Mode, Text- 
Mode, Turn, TurnTo, Move, MoveTo, TurtleX, 
TurtleY, TurtleAng, ViewPort, FullPort, FillPort, 
SaveHires, LoadHIres 

- Toneffekte: Beep (wie Control-G), Note (Ton 
mit bestimmter Höhe und Dauer), Click, Phaser 

- Diagramme: BarChart (Balkendiagramm), Pie- 
Chart (Tortengrafik), PlotXY (Kurvendiagramm). 

Mitgeliefert werden drei in Pascal geschriebene 
Demonstrationsprogramme: TURTLEDEMO, 

SOUND.DEMO und CHART.DEMO. Das erste 
zeichnet ein paar einfache Grafiken auf den 
Bildschirm und demonstriert damit die Anwen¬ 
dung fast aller Befehle aus der TurtleGraphics 
Library. Das zweite Demo-Programm erläutert 
die Programmierung verschiedener Sound-Ef¬ 
fekte mit Hilfe der Befehle aus der Sound Ef¬ 
fects Library, so z.B. ein klingelndes Telefon, 
Phaser-Geräusche und ein Musikstück. 
CHART.DEMO ist dagegen schon ein kleines 
Anwendungsprogramm. Es erfordert die Einga¬ 
be einer Anzahl von Zahlenwerten und präsen¬ 
tiert dann auf Wunsch ein einfaches Balkendia¬ 
gramm, eine Tortengrafik oder ein Kurvendia¬ 
gramm. 


Bewertung: Für einfache Grafik-Programmie¬ 
rung in Pascal ist TurtleGraphics ausreichend. 
Wird jedoch mehr Komfort und doppelte Auflö¬ 
sung gefordert, sollte man sich besser Advan¬ 
ced Graphics zulegen. Die zusätzlich mitgelie¬ 
ferten Sound-Effekte von TurtleGraphics sind 
wohl mehr als kostenlose Beigabe gedacht. 

3.3. Dokumentation 

Toolkit IV von Kyan, Inc. besteht aus einer ein¬ 
seitig beschriebenen Diskette und einer Lose¬ 
blattsammlung von 17 Blättern zum Einheften. 
Das TurtleGraphics User Manual beschreibt die 
Philosophie der „Schildkröten“-Grafik und dar¬ 
an anschließend im wesentlichen die Übergabe 
der Parameter an die verschiedenen Grafik- und 
Sound-Befehle. 

Bewertung: Die Dokumentation ist wie die der 
anderen Kyan-Toolkits ausführlich genug und 
somit kein Anlaß zur Kritik. 


Ein-Blick 


Name: 

Einsatz: 

Gesamtwertung: 

Dokumentation: 

Zweckdienlichkeit: 
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TurtleGraphics Toolkit 
Grafik- und Soundbefehle 
für Kyan-Pascal 

«««* 

***** (28 Seiten) 

**** 

*** 

**** 

**** 

US$ 29.95 

Kyan Software, Inc., 

San Francisco, USA 


(Die beste Bewertung entspricht 5 Sternen) 
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pRoduliTE 


Apple-Il-Produkte 



ProDOS-Uhr für Apple llc 

Daten- und Programmfiles können 
auch auf einenn Apple llc unter 
ProDOS automatisch mit einem 
Eintrag von Zeit und Datum in das 
Diskettendirectory versehen wer¬ 
den. Ermöglicht wird dies durch die 
batteriegepufferte Kalenderuhr 
M2000, welche an eine serielle 
V.24/RS232-SchniUstelle des llc 
angeschlossen wird. Für eine 
möglichst umfassende Kompatibi¬ 
lität mit allen ProDOS-Program- 
men wurde die offizielle ProDOS- 
Uhr, wie sie vom Apple Ile bekannt 
ist, auf dem llc mit der M2000 


emuliert. Erfolgreiche Tests wur¬ 
den mit Appleworks, BASIC.SY¬ 
STEM. EDASM.SYSTEM und 
MERLIN.SYSTEM durchgeführt. 
Zeit und Datum können von eige¬ 
nen Programmen abgefragt und 
verarbeitet werden. Weitere Eigen¬ 
schaften der Uhr: paralleler 8-Bit- 
Port für Einzelbiteln- und -ausgabe 
mit dem llc, Stand-alone Betrieb 
als Schaltuhr (Programmierung mit 
llc). 

Der Preis für die M2000 beträgt ca. 
DM 387,-. 

Bezugsquelle: Pandasoft, Berlin 
oder IDW, Neufahrn 


Fußball-Bundesliga 

„ Bundesliga“ ist ein Programm zur 
Verwaltung und Verarbeitung der 
Fußball-Bundesliga-Ergebnisse für 
Mikro-Computer mit den Betriebs¬ 
systemen CP/M (z.B. Apple mit 
Z80-Karte) und PC-DOS (z.B. 
IBM-PC). Zusammen mit dem Pro¬ 
gramm wird eine Datendatei gelie¬ 
fert, die alle Spielpaarungen und 
Ergebnisse seit Bestehen der 1. 
(1963) und der einteiligen 2. 
(1981) Bundesliga enthält. Bun¬ 
desliga wertet Spielergebnisse 
aus, gibt Listen aller deutschen 
Meister und alle Plazierungen ge¬ 
wünschter Mannschaften aus etc., 
kurzum, es erfaßt die gesamte 
deutsche Fußball-Bundesliga. 
Bundesliga kostet für CP/M oder 
PC-DOS je ca.^DM 400,-, eine De¬ 
mo-Version kann für DM 20,- be¬ 
zogen werden. 

Bezugsquelle: Bekra-Software, 

Mülheim-Kärlich 


Aktienanalyse mit Stockmaster 

Computerbesitzern bietet sich jetzt 
eine gute Möglichkeit, an der Bör¬ 
se zusätzliches Geld zu verdienen: 
Das Programm Stockmaster II er¬ 
mittelt durch technische Analyse 
die aussichtsreichsten Aktien und 
gibt klare Hinweise auf deren zu 
erwartende Weiterentwicklung. 
Dabei können bis zu 150 Aktien 
gleichzeitig beobachtet werden. 
Die Computer-Auswertung zeigt 
auf einen Blick, welche Aktien ge¬ 
kauft, gehalten oder veräußert wer¬ 
den sollten. Eine grafische Darstel¬ 
lung des Wertverlaufes in logarith- 
mischer Einteilung ist möglich. Das 
Programm ist z.Zt. für Computer 
von Apple, Commodore und 
Schneider erhältlich. 

Der Preis liegt bei ca. DM 485,-. 
Bezugsquelle: Töngi Computer- 
Praxis, Wiesbaden; In der 
Schweiz: Denton Consultants AG, 
Forch/Zürich 


Apple-Assembler 

Dipl.-Math. M. Grözinger befaßt 
sich in seinem Buch „Der Gläser¬ 
ne Apfel“ und dem dazugehören¬ 
den Programm „ASTOR“ mit der 
6502-Assemblerprogrammierung 
des Apple 11 und seiner internen 
Software-Struktur. Die Anleitung 
besteht aus zwei Komponenten: 

- dem Assembler-Tutor (ASTOR), 
einem leistungsfähigen Tracer und 
Debugger, mit dem alle internen 
Abläufe auf Maschinenebene „in 
Zeitlupe“ beobachtet werden kön¬ 
nen 

- dem 150 Seiten starken Hand¬ 
buch, das problemorientiert aufge¬ 
baut ist und mit systemspezifi¬ 
schen Internes vertraut macht. 
Dem Assemblerneuling soll 
ASTOR durch direktes Beobach¬ 
ten des Programmierablaufes und 
Kontrollieren der Resultate den 
Einstieg in die Maschinensprache 
erleichtern. Der Fortgeschrittene 
findet mit ASTOR schneller Fehler 


in selbstgeschriebenen Program¬ 
men und findet interessante Be¬ 
triebssystem-Routinen, die er in 
seine Programme einbauen kann. 
Im Buch wird anhand kleiner As¬ 
semblerprogramme die Handha¬ 
bung von ASTOR erläutert. Der 
zweite Teil befaßt sich mit dem 
Monitor und dem Basic-Interpre- 
ter. Hauptthema ist der interne 
Aufbau von Basic-Programmen 
und deren Abarbeitung auf Ma¬ 
schinenebene. Eine Zusammen¬ 
stellung der wichtigsten Routinen 
rundet das Kapitel ab. Im dritten 
Teil werden 5 größere Assem¬ 
blerprogramme mit ca. 5-8 Seiten 
Quelltext erläutert. 

ASTOR und alle im Handbuch ent¬ 
wickelten Programme werden auf 
Diskette mitgeliefert und laufen auf 
allen Apple-Rechnern mit den Pro¬ 
zessoren 6502 und 65C02. Ge¬ 
samtpreis: ca. DM 79,-. 
Bezugsquelle: Stimmler-Elektro- 
nlk, Tübingen 



Juki-Typenraddrucker 

Juki 6500: Der 60 Zeichen/Se¬ 
kunde schnelle Typenraddrucker 
Juki 6500 ist eine weiterentwickel¬ 
te, hochwertige Version der bereits 
bekannten Drucker Juki 6200 und 
6300. Hauptmerkmale sind das 
duale Interface (per Schalter kann 
zwischen Centronics-Paraliel- und 
V.24-Schnlttstelle gewählt wer¬ 
den), ein Diablo-96-Zeichen-Ty- 
penrad, eine Diablo-Hytype-Il- 
Farbbandkassette, Einzelblattzu¬ 
führung sowie eine internationale 
Stromversorgungseinheit. 

Juki 6300T: Der Juki 6300T ist ein 
vielseitig verwendbarer Typenrad¬ 


drucker mit einer Leistung von 40 
Zeichen pro Sekunde, der als di¬ 
rekter Ersatz für die IBM-Modelle 
5256, 5225, 5219 und 4214 Modell 
2 konzipiert wurde. Bei Verwen¬ 
dung des Twin-Ax-Adapters Ist der 
Drucker ebenfalls voll kompatibel 
mit den IBM-Systemen 34, 36 und 
38, IBM 5251 Modell 12 und der 
IBM 5294 Remote-Control-Unlt. 
Hauptmerkmale sind ein Standard- 
Dlablo-Typenrad und -Farbband 
und eine 16"-Walze. 

Bezugsquelle: Juki Europe GmbH, 
Hamburg 
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Microline-Matrixdrucker 

Die Punktmatrixdrucker Microline 
292/293 zeichnen sich durch hohe 
Druckgeschwindigkeiten und ein 
gestochen scharfes Schriftbild aus. 
Der Druckkopf ist mit 18 Nadeln 
bestückt (versetzte Nadelanord¬ 
nung) und ist für eine Standfestig¬ 
keit von 200 Mio Zeichen ausge¬ 
legt. Im Datenverarbeitungsmodus 
werden bis zu 200 Zeichen/Se¬ 
kunde gedruckt, im Schönschreib¬ 
modus setzen die Microline 292/ 
293 mit 100 Zeichen/Sekunde 
neue Maßstäbe für die Geschäfts¬ 
korrespondenz. Kombinationen 
von verschiedenen Schriftarten 
(Hoch- und Tiefstellungen, Kursiv¬ 
schrift, horizontaler und vertikaler 
Fettdruck, Unterstreichen, Propor¬ 
tionalschrift etc.) und Zeichendich¬ 
ten, 14 nationale Zeichensätze und 
IBM-Satz erlauben die Gestaltung 


von zahlreichen Schriftvarianten. 
Durch Farbbandwechsel ist die 
Umstellung in einem Farbdrucker 
mit 6 (über Menü) bzw. 13 Farben 
(über Software) möglich. Die Auf¬ 
lösung bei Bit-image-Grafiken be¬ 
trägt 288 X 144 Punkte/Zoll, der 
Druckpuffer ist 15K groß. Microline 
292 und 293 verfügen über eine 
halbautomatische Einzelblattverar¬ 
beitung. Auf Wunsch ist ein vollau¬ 
tomatischer Einzetblatteinzug lie¬ 
ferbar. 

Der Microline 292 kostet ca. DM 
1900,- zzgl. DM 500,- für das Per¬ 
sonality-Modul. Der Microline 293 
(Papierbreite bis 16 Zoll) kostet ca. 
DM 2500,- zzgl. DM 500,- für das 
Personality-Modul. 

Bezugsquelle: Okidata GmbH, 
Düsseldorf 



Der neue Microline 294 von Oki¬ 
data ist ein Hochleistungsmatrix-* 
drucker mit einer Druckgeschwin¬ 
digkeit mit bis zu 400 Zeichen/Se¬ 
kunde im Datenverarbeitungsmo¬ 
dus. Im Schönschreibmodus 


druckt er 100 Zeichen/Sekunde. 
Wie die Microline 292 und 293 ist 
er mit 18 Nadeln (parallele Nadel- 
ansteuerung) und halbautomati¬ 
schem Einzelblatteinzug ausge¬ 
stattet und kann bis zu 46 Schrift¬ 


varianten ausdrucken. Als Farb¬ 
drucker erzeugt er bis zu 13 Far¬ 
ben. Der Microline 294 arbeitet mit 
Friktions- und Traktoreinzug (maxi¬ 
male Papierbreite 406,4mm). Zur 
Standardausstattung gehören ein 
Traktor für Endlosformulare und ei¬ 
ne Schallschutzabdeckung. Fol¬ 
gende Personality-Module sind für 
den ML 294 erhältlich: ML-parallel, 


ML-seriell (RS232C oder RS422). 
IBM-seriell und IBM-parallel. Der 
ML 294 läßt sich leicht an einen 
IBM-PC oder andere gängige 
Computersysteme anschließen. 

Der Microline 294 kostet ca. DM 
3350,- zzgl. DM 500,- für das Per¬ 
sonality-Modul. 

Bezugsquelle: Okidata GmbH ,' 
Düsseldorf 



NEC-Matrixdrucker P6/P7 

Die neuen Punktmatrixdrucker 
Pinwriter P6 und P7 von NEC, die 
sich nur in der Schreibbreite unter¬ 
scheiden (P6: 80 Zeichen, P7: 136 
Zeichen, jeweils bei 10 Zeichen/ 
Zoll), besitzen einen 24-Nadel- 
Präzisionsdruckkopf. 24 Nadeln (2 
X 12) sorgen für ein Schriftbild in 
echter Korrespondenzqualität. 
Dank der Auflösung von 360 x 360 
Punkten/Zoll werden auch Grafi¬ 
ken detailliert wiedergegeben. Die 
optionale Colorausstattung ermög¬ 
licht brillanten Farbdruck. Die 
Drucker bieten Centronics-Stan- 


dardschnittstellen (8 Bit parallel) 
und RS232C/20-MA-Current- 
Loop-Schnittstellen, der Druckpuf¬ 
ferbereich kann von 8K auf max. 
40K erweitert werden. Die Druck¬ 
geschwindigkeit wird mit 216 Zei¬ 
chen/Sekunde bei Schneflschrift 
und 72 Zeichen/Sekunde bei Kor¬ 
respondenzschrift angegeben. 12 
nationale Zeichensätze sind imple¬ 
mentiert. Die Zeichensatzwahl er¬ 
folgt manuell oder über Software 
und wird digital angezeigt. 
Bezugsquelle: NEC Business Sy¬ 
stems GmbH, Düsseldorf 


CP/M Plus für Apple Ile 

Das Cirtech-CP/M-Plus-System 
verändert die gewohnten Apple- 
Ile-Funktionen nicht, erweitert aber 
die Einsatzfähigkeit des Ile um ein 
Vielfaches. Die gesamte Apple- 
CP/M-Software läuft damit auch 
auf dem Apple Ile. Zum System 
gehören der Cirtech-CP/M-Modul 
mit CPU Z80H (8MHz) uncf das 
Original-Betriebssystem CP/M- 
PIus von Digital Research. Techni¬ 
sche Daten: Interne Verarbei¬ 
tungsgeschwindigkeit 4-6 MHz, 
Drucker-Spooler für 12000 Zei¬ 
chen, Ein- und Ausgabespooler für 
4000 Zeichen, 128K-RAM-Pro- 
grammspeicher (Z80-Karte mit 
64K RAM ist notwendig). 
Massenspeicher: Apple Disk II mit 
140K, UniDisk mit 800K, ProFile 


und Flipper-Karte mit IM RAM 
oder andere RAM-Karten (Apple 
Standard). 

Auf dem System läuft die Stan- 
dard-CP/M-Software, z.B. 

MBASIC, GBASIC, Pascal, Forth, 
Turbo Pascal 3.0, Wordstar, Multi¬ 
plan, dBase, Superquick etc. 

Das CP/M-Modul ist voll CP/M- 
2.23-kompatibel, das CP/M-Plus- 
Betriebssystem ist kompatibel zu 
CP/M 2.0. 

Preise: Ile CP/M-Plus-Karte mit 
Betriebssystem CP/M 3.0 ca. DM 
550,- 

lle CP/M-Plus-Karte mit Betriebs¬ 
system CP/M 3.0 und Wordstar/ 
Mailmerge-Software ca. DM 930.-. 
Bezugsquelle: Semjan Computer 
Systeme, Frankfurt 
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Sonderangebot für Peeker-Leser 

Festplattenkomplettlösung 

für jedermann 


Mit der Firma Frank & Britting GmbH, die 
auf Festplatten spezialisiert ist, konnten 
wir ein extrem günstiges Sonderangebot 
aushandeln, das eine Festplattenkomplett¬ 
lösung selbst für Apple-Besitzer mit klei¬ 
nerem Geldbeutel erschwinglich macht. 
Sie können unter zwei Varianten wählen: 

Luxus-Lösung: 20-Megabyte-Festplatte 
MDB20 (MDB = Mobile Datenbox) + Me¬ 
gaboard-Controller -F Handbuch + 3 Kon¬ 
figurationsdisketten + Anschlußkabel -h 
DB-Meister-Dateiverwaltungsprogramm 
Handbuch -H 2 Programmdisketten zum 
Gesamtpreis von nur DM 3199,- inkl. 
MwSt. 

Standard-Lösung; 10-Megabyte-Fest¬ 
platte MDB10 -H Megaboard-Controller -i- 
Handbuch -F 3 Konfigurationsdisketten + 
Anschlußkabel + DB-Meister-Dateiver- 
waltungsprogramm + Handbuch + 2 Pro¬ 
grammdisketten zum Gesamtpreis von nur 
DM 2799,- inkl. MwSt. 

(jeweils 6 Monate Garantie.) 

Wozu eine Festplatte? 

Für eine Festplatte sprechen zwei Argu¬ 
mente, nämlich erstens der bedeutend 
größere Datenspeicher und zweitens die 
sehr hohe Zugriffszeit. 

• 80- und 160-Spur-Laufwerke haben 
zwar einen größeren Datenspeicher als 
die normalen 35-Spur-Laufwerke, doch ist 
die Zugriffszeit hier wie dort bescheiden. 

• RAM-Karten haben zwar eine hohe Zu¬ 
griffszeit, doch ist der Datenspeicher 
flüchtig: Strom aus - Daten weg! 

Für unsere Festplatten-Standard-Lösung 
(MDB10) gilt demgegenüber: 

- Die Nettospeicherkapazität beträgt hier 
ca. 9.650K = ca. 9.880.000 Zeichen = ca. 
15 Disketten mit 160 Spuren = ca. 69 
Disketten mit 35 Spuren. 

- Die Datenübertragungsrate beträgt auf 
unterster Ebene ca. 44K/s = ca. 45.000 
Zeichen/s. Zum Vergleich beläuft sich die 
Übertragungsrate bei normalen Disketten¬ 
laufwerken auf ca. 7,5K/s und bei RAM- 
Karten auf ca. 44K/S, d.h. RAM-Karten 
sind also keineswegs schneller, sondern 
meist sogar langsamer als die MDB-Fest- 
platte. 


Sie erhalten deshalb mit unserer Festplat¬ 
tenlösung einen großen externen Massen¬ 
speicher bei sehr hoher Datenübertra¬ 
gungsrate zu einem äußerst niedrigen 
Preis. 

Als Betriebssysteme können Sie im ein¬ 
zelnen verwenden: 

-DOS 3.3, 

- Diversi-DOS 2C und 4C, 

- Apple-Pascal 1.1 und 1.2, 

-ProDOS 1.0.1, 1.0.2, 1.1.1, 

- CP/M 2.2 56K (z.Zt nur diese CP/M- 
Version). 


DB-Meister 

Speziell für die zukünftigen MDB-Besitzer 
wurde das Adreß- und Schemabriefpro¬ 
gramm DB-Meister, das in der normalen 
Diskettenversion DM 290,- kostet, zum 
Festplattenbetrieb umgeschrieben. Tech¬ 
nische Daten: 

- Datensatzlänge bis zu 230 Zeichen, auf¬ 
teilbar in bis zu 25 Felder; maximal 1000 
Datensätze pro Volume 


Wie wird bestellt? 

Sie senden Ihre Bestellung an den Hüthig- 
Software-Service. Sie erhalten dann von 
der Firma Frank & Britting eine Voraus¬ 
rechnung, nach deren Überweisung Ihnen 
von dort die MDB10 bzw. MDB20, der 
Megaboard-Controller, das Handbuch und 
die Konfigurierungsdisketten mit 6 Mona¬ 
ten Garantie geliefert werden. Gleichzeitig 
erhalten Sie vom Hüthig-Software-Service 
das DB-Meister-Programm (2 Disketten 
und Handbuch) in der für die MDB bereits 


-2 variable Indexfelder und 1 zusätzliches, 
konstantes Suchfeld. 

- Maskengenerator-Modul für die freie 
Definition von Bildschirmeingabe- und 
Ausdruck-Masken. 

- Dateipflege-Modul zum Neueingeben, 
Ändern, Löschen, Ansehen, Bildschirm- 
Ausdruck usw. 

- Sortier- und Filter-Module zum Sortieren 
und Untersortieren nach Indexfeldern und 
zum selektiven oder kumulierenden Filtern 
nach beliebigen Feldern. 

- Druck-Modul zum Ausdrucken von 
Selbstklebe-Etiketten, tabellarischen Li¬ 
sten und Schemabriefen mit automati¬ 
schem Einschub von Adressen und Anre¬ 
den sowie weiteren Feldeinschüben im 
Briefkörper; Einzelblatt und Endlospapier 
verwendbar; Druckertreiber für Typenrad¬ 
drucker mit anderer Typenradbelegung 
können eingebunden werden. 

- Brief-Modul zum Schreiben der Sche¬ 
mabriefe; bei Bedarf separat verwendbar. 

- Schnelles Backup-Programm (nur 10 
Minuten für 2,5 Megabytes bzw. 18 DB- 
Meister-Dateien). 


angepaßten Version. Nach einer geringfü¬ 
gigen Änderung im Hello-Programm kön¬ 
nen Sie diese Neuversion des DB-Mei- 
sters übrigens auch zusätzlich auf norma¬ 
len 35-Spur-Laufwerken einsetzen. 

Zur Bestellung können Sie eine der im 
Peeker eingehefteten Bestellkarten ver¬ 
wenden. Stichwort: 

1 X MDBIO-Sonderangebot für DM 2799,- 
oder 

1 X MDB20-Sonderangebot für DM 3199,- 
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Warum wollen Sie ein teures Textverarbeitungsprogramm kaufen, 
wenn es ein billiges und besseres gibt? 

Fast-Writer 

von Harald Grumser ProDOS-Version. Auslieferung ab 1.9.86 

Programmdiskette und Handbuch Normalpreis DM 128- (ISBN 3-7785-1421-0) 

Gerätevoraussetzung: Apple Ile oder llc (nicht II-I-) Sonderpreis für Peeker-Abonnenten DM 98- 
DOS-3.3-Version. Auslieferung ab 1.6.86 Kombinationspreis für Bezieher der 

Normalpreis DM 128- (ISBN 3-7785-1419-9) DOS-3.3-Version DM 28- 

Sonderpreis für Peeker-Abonnenten DM 98,- 

Der Fast-Writer von Harald Grumser ist in zahlreichen Funktionen wie Scrollen, Suchen und Ersetzen mit 
Abstand das schnellste und damit angenehmste Textverarbeitungsprogramm für den Apple Ile oder llc. 


Flexibilität 

Viele Textverarbeitungsprogramme sind geschützt und 
laufen deshalb nur in Verbindung mit normalen Disk-Il- 
Laufwerken. Nicht so der Fast-Writer! 


-Der Fast-Writer modifiziert weder DOS 3.3 (oder 
Diversi-DOS) noch ProDOS und kann deshalb mit 
BRUN FAST.WRITER gestartet werden. Unter Diversi- 
DOS ist der Fast-Writer dann in 3 Sekunden im Spei¬ 
cher. Vergleichen Sie einmal, wie lange es dauert, bis 
andere Textprogramme im Speicher sindl 


-Da der DOS-3.3-Fast-Writer in den oberen 16K (= 
Language Card) liegt, kann man ihn vorübergehend 
verlassen und mit einem einfachen Befehl wieder star¬ 
ten. Mit anderen Worten: Der Fast-Writer ist permanent 
verfügbar, auch wenn Sie zwischendurch beispielswei¬ 
se mit FID Dateien kopiert haben. 

- Der Fast-Writer läuft mit allen externen Datenspei¬ 
chern, die für DOS 3.3 oder ProDOS gedacht sind, z.B. 
mit dem Erphi-160-Spur-Subsystem, mit der Mega- 
board-MDB-Festplatte, mit RAM-Karten usw. Spezielle 
Anpassungen sind nicht erforderlich. Suchen Sie ein¬ 
mal ein Textprogramm, das mit diesen Datenspeichern 
auf Anhieb funktioniert! 


- Der Fast-Writer kann mühelos über ein Menü für Ihre 
speziellen Aufgaben konfiguriert werden. Sie können 
z.B. per Knopfdruck die Zeilenbreite (normal 80 Zei¬ 
chen) am Bildschirm einstellen, wobei ab einer Breite 
von weniger als 41 Zeichen automatisch auf die größere 
Bildschirmschrift umgestellt wird. Ferner können Sie 
die Größe des Arbeitsspeichers (insgesamt ca. 35500 
Zeichen) beliebig in Textspeicher und Hilfspuffer (für 
Löschen und Blockverschieben) aufteilen. Wenn Sie 
z.B. große Textblöcke im Speicher zu verschieben ha¬ 
ben, so können Sie einen entsprechend großen Hilfs¬ 
puffer von z.B. 10000 Zeichen einrichten. Damit entfällt 
das zeitraubende Zwischenspeichern und Einlesen von 
Diskette. 


Befehlsvorrat 

Der Fast-Writer verfügt über eine große Zahl von Be¬ 
fehlen, von denen Sie in der Praxis jedoch nur wenige 
benötigen. Fünf Befehlsübersichten sind durch einge¬ 
baute Hilfsübersichten immer abrufbar, so daß Sie 
schon nach einer mehrstündigen Einarbeitung auf das 
Handbuch verzichten können. Eine Auswahl der wich¬ 
tigsten Befehle: 

-Freie Cursorbewegung in allen vier Richtungen mit 
eingebauter Schnell-Scroll-Routine. 

- Diverse, per Knopfdruck ein- und ausschaltbare Op¬ 
tionen, z.B. Wortumbruch/kein Wortumbruch, Return 
sichtbar/unsichtbar, Kopfzeile (Statuszeile) mit Spei¬ 
cherbelegung, Cursorposition usw. eingeblendet/aus¬ 
geblendet, Bildschirm geteilt/ungeteilt, Tabulatorleiste 
sichtbar/unsichtbar, Überschreibmodus (statt normalen 
Einfügmodus) ein/aus usw. 

- Eingabe von Kontrollbuchstaben (einschließlich CtrI-V!) 
möglich. Automatische Konvertierung in Groß- oder Klein¬ 
schreibung (unter Berücksichtigung der Umlaute und ß!) 

- Extrem schnelles Suchen und Ersetzen von Zeichen¬ 
ketten (vorwärts und rückwärts). 

- Makros frei definierbar und per Knopfdruck abrufbar. 
Makros können nicht nur stereotype Wortfolgen sein 
(z.B. „Sehr geehrte Herren“), sondern auch alle Be¬ 
fehlsfolgen, die man beim Fast-Writer sonst über die 
Tastatur eingeben würde. So läßt sich beispielsweise 
ein Text automatisch von Laufwerk 1 laden und auf 
Laufwerk 2 speichern. 

- DOS-Kommandos wie Catalog, Delete, Rename usw. 
immer verfügbar (bei DOS 3.3 zusätzlich Init, bei Pro- 
DOS zusätzlich Online und Datum) 

- Ausdruck auf Matrixdrucker (normal endlos), Schreib¬ 
maschine (normal mit Einzelblatt) und zu Kontrollzwek- 
ken auf Bildschirm: links- und rechtsbündig, zentriert 
und Blocksatz; einstellbarer linker, rechter und oberer 
Rand (im Text änderbar), bei Bedarf mit Kopfzeile und 
Paginierung usw. Der Ausdruck kann über eigene 
Druckertreiber umgelenkt werden, um z.B. Probleme 
mit Typenrädern, Steuerzeichen usw. zu beheben. 

- Makros, Druckparameter, Druckertreiber und Tabula¬ 
toren können auf Diskette gespeichert werden. 
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